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Los listados incluidos en el cuerpo principal del texto se han diseñado para los 
ordenadores MSX. 
En los apéndices del libro encontrará listados específicos para las siguientes 
máquinas: 
— Spectrum. 
— Amstrad. 
— Commodore 64. 
— Apple Il. 


Introducción 


Bienvenido a este trabajo sobre el fascinante mundo de los sistemas expertos. 
En él hablaremos sobre los jalones específicos en la historia y el desarrollo de 
algunos de los sistemas principales desde un punto de vista que nos permitirá 
obtener una visión de conjunto de la situación actual de los sistemas expertos. 

A partir de ello, desarrollaremos sistemas expertos específicos propios (inclu- 
yendo MECANICO DE AUTOMOVILES, y MEDICI, que le harán un rápido 
“test” del estado de su maquinaria y una predicción de la edad probable hasta 
la que vivirá). El sistema experto más importante del libro se llama FUZZY 
RITA. RITA nos aporta la estructura de un sistema experto de propósito 
general que podemos modificar para adaptarlo a nuestras necesidades concretas. 
Veremos a RITA en acción, distinguiendo entre perros y gatos, utilizando las 
propiedades de un metal para decirnos qué es y, finalmente, prediciendo el 
tiempo, en base a datos reales (y consiguiendo un índice de aciertos muy 
superior al que probablemente se obtendría haciéndolo solamente al azar). 

Veremos también los lenguajes que están comenzando a dominar el mundo 
de los sistemas expertos y el de la inteligencia artificial. He escrito para usted 
emuladores en BASIC del LISP y del PROLOG que puede cargarlos en su 
ordenador para hacerse una idea de cómo se trabaja con tales lenguajes. Antes 
le proporcionaré un lenguaje nuevo y sencillo, de nombre HASTE, para que le 
introduzca brevemente en los ambientes de programación habitados por el 
LISP y el PROLOG. 

En conjunto, este libro se ha diseñado para ayudarle a conseguir una base 
razonable de conocimientos propia, de manera que pueda ejercitar su propio 
saber sobre sistemas expertos. 


Tim HARTNELL 
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¿Qué es un 
sistema 
experto? 


Un sistema experto es un programa de ordenador que contiene saber 
humano sobre un tema, mantenido de tal forma que los no expertos pueden 
acceder a él y utilizarlo. Tal sistema se compone de dos partes principales: la 
información almacenada (el saber o pericia) y el procedimiento de razonamiento 
(que formula preguntas al usuario y toma decisiones en base a la información 
que ha recibido). 

Los sistemas expertos pueden hacer muchas cosas. Pueden diagnosticar 
enfermedades infecciosas (MYCIN), deducir estructuras moleculares a partir de 
espectrogramas de masas (DENDRAL), buscar petróleo y metales preciosos 
(PROSPECTOR) y ayudarle a poner en marcha su coche por la mañana 
(MECANICO DE AUTOMOVILES, que veremos después en este libro). 

Las características que diferencian un sistema experto-inteligente de una base 
de conocimientos son las siguientes (estos términos le resultarán comprensibles 
cuando se haya adentrado en este libro): 


Dominio específico. 

Utiliza un razonamiento probabilístico o difuso. 

Posee un modo autoexplicativo. 

Separa nítidamente los hechos del mecanismo de inferencia. 
Puede crecer incrementalmente. 

Da dinero. 


Dunn 
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7. Normalmente se basa en reglas. 
No tiende a ser ambicioso. 
9. Da como respuesta un consejo (tal como “cambia las bujías”, “opera el 
” 66 


dedo gordo del pie izquierdo”, “cava en la esquina nordeste del huerto”), en 
vez de cualquier otro tipo de salidas (como, por ejemplo, un gráfico). 


eo 


A decir verdad, no sabemos todavía qué es un sistema experto. Hoy día es 
demasiado pronto para dar una respuesta definitiva a una pregunta aparente- 
mente tan simple: ¿qué es un sistema experto? Somos incapaces de decir cuáles 
de las características que acabamos de relacionar se convertirán en fundamenta- 
les y cuáles acabarán siendo accesorias. 

Hasta ahora, el mayor problema ha sido conseguir el conocimiento de un 
experto de forma que una máquina pueda manipularlo. El procedimiento ac- 
tual, llamado “ingeniería del conocimiento”, está lejos de ser eficiente, ya que 
requiere un experto humano (el ingeniero de conocimiento) para extraer labo- 
riosamente el conocimiento real que otro experto humano concentra en un 
problema. Este es el “cuello de botella” en la producción de sistemas expertos. 


Los componentes principales 


A modo de diagrama, las partes principales de sistema experto son las 
siguientes: 


Sistema experto 


Humano: Hechos acerca del > Escucha al humano 
problema actual 


Mecanismo de inferencia 


Humano <-———————— Respuesta ¿<—————___— 
Base de conocimientos 


La “base de conocimientos”, en un sistema basado en regla (tal como 
MECANICO DE AUTOMOVILES de este libro), está formada básicamente 
por una colección de sentencias IF/THEN (SI/ENTONCES), tales como: 


SIX E Y SON VERDADEROS ENTONCES C ES VERDADERO 
MECANICO DE AUTOMOVILES contiene líneas de códigos que signifi- 
can SI EL ARRANQUE NO HACE UN CHASQUIDO ENTONCES EL 


RELE PROBABLEMENTE FALLA. Funciona pidiendo primeramente al 
usuario que defina el problema. A continuación lo conduce descendiendo por el 
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árbol de posibilidades, tomando una u otra rama en función de las informacio- 
nes que suministra el usuario. Este es un ejemplo de “encadenamiento hacia 
adelante” que busca la solución única que se encuentra al extremo de una serie 
particular de bifurcaciones. 

Otros sistemas expertos más sofisticados utilizan un “encadenamiento hacia 
atrás” en los que, elegido un fin (EL COCHE NO TIENE GASOLINA), se 
formulan las preguntas para establecer la veracidad de esa hipótesis particular. 


La base de conocimientos 


Este puede hallarse o codificado (hard-wired)* directamente en el cuerpo 
principal del programa (como en MEDICI y MECANICO DE AUTOMOVI- 
LES), en cuyo caso es más o menos imposible borrarlo o mantenerlo en una 
base de datos direccionable, de forma que pueda ser accedido, modificado y 
actualizado, incluso mientras el programa está en funcionamiento. FUZZY 
RITA establece un conjunto de reglas que determinan la importancia que se les 
dará a determinadas entradas, asignando valores a variables (y modificándolos 
en base a la aplicación en sucesivas veces del método de la prueba y corrección 
del error). 

En el caso de un sistema hard-wired (y en total contraste con los programas 
del tipo de FUZZY RITA que generan sus propias reglas mientras están 
funcionando, incluso si el usuario no tiene ni idea de cómo son éstas), el saber 
debe adquirirse directamente de un experto humano. 

La puesta a punto de un método mediante el cual un ordenador pudiera 
extraer por sí mismo el conocimiento, y así crear su propia base de conocimien- 
to, sería tal vez el avance más importante en la historia de los sistemas expertos. 
Un conocimiento autocreado de este tipo sería rápidamente reconocido como 
un valioso recurso. Los que consigan satisfacer la demanda de tal producto 
obtendrán una fortuna. (La captación del saber de expertos humanos se discute 
con algún detalle en el capítulo 7, “Knowledge Engineering”, del libro Rule- 
Based Expert System, B. Buchanan, 1984.) 

A lo ancho del mundo se están desarrollando varios proyectos de investiga- 
ción sobre el tema de “el aprendizaje de máquinas”, que es la ciencia cuyo 
objetivo es la consecución de un ordenador que descubra y codifique para él 
mismo el saber humano. (Para informarse de cómo trabaja un ingeniero del 
conocimiento, léase H. Penny Nii, Feigenbaum, 1983.) 

A continuación damos algunas de las estructuras del razonamiento utiliza- 
das en los sistemas expertos actuales. 


1. ARBOLES DE DECISION. El ordenador sigue una trayectoria rígida 
descendente según una sucesión de preguntas, dejando que la respuesta a 
cada una de ellas determine la trayectoria específica que el programa 
deberá seguir a continuación. Esta clase de programas necesitan datos 


* Hard-wired: cableado, de estructura rígida, etc. 


15 


rígidos, les gustan situaciones SI/NO. No son capaces de arreglárselas 
con facilidad con situaciones difusas del tipo “habitualmente/quizá/a 
veces”, 


Programas comerciales tales como CONSULT y EXPERTEASE utilizan 
árboles de decisión. 


2. PRODUCCION DE REGLAS. Esta estructura se ve en programas 
comerciales como XCON y DART, que utilizan procesos IF/THEN 
(junto con AND). 

3. REDES SEMANTICAS. MYCIN y PROSPECTOR son ejemplos de 
este tipo de estructura: 


hecho-uno 
/ Y N 


relación-3 relación-4 
hecho-cuatro relación-1 io 
relación-2 
hecho-tres 


Los sistemas expertos y la inteligencia artificial (IA) son dos temas de gran 
actualidad. En la edición de enero de 1985 de la revista Byte (págs. 275 a 282), 
bajo el título de Expert Systems — Myth or Reality? (Sistemas expertos: ¿Mito 
o realidad? ), Bruce D'Ambrosio señala que el Departamento de Defensa de 
Estados Unidos ha clasificado la IA como una de las diez tecnologías más 
importantes que deberían ser desarrolladas en los próximos años de este siglo. 
Japan Inc. ha entrado en acción con su “proyecto de ordenador de la quinta 
generación”. Uno de los principales objetivos de este proyecto es el desarrollo de 
mejores sistemas expertos. 

Entre los temas principales para la investigación y desarrollo de los ordena- 
dores de la quinta generación (de acuerdo con los Proceedings of the Internatio- 
nal Conference on Fifth-Generation Computer Systems, 19-22 de octubre de 1981, 
Japan Information Processing and Development Centre) se hallan incluidos los 
siguientes: 
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SISTEMAS DE 
APLICACION BASICA 


SISTEMAS DE 


SOFTWARE BASICO 


NUEVAS ARQUITECTURAS 


AVANZADAS 


ARQUITECTURA EN RED 
CON FUNCIONES 
DISTRIBUIDAS 


TECNOLOGIA VLSI 


TECNOLOGIA DE 
SISTEMIZACION 


Traducción automática 
Preguntas-respuestas 

Aplicación del reconocimiento de voz 
Reconocimiento de dibujos e imágenes 
Resolución de problemas 


Control de la base de conocimientos 
Resolución de problemas e inferencia 
Interfaz inteligente 


Máquinas de programación lógica 

Máquinas funcionales 

Máquinas con álgebra relacional 

Máquinas con soporte de datos de tipo abstracto 
Máquinas con flujo de datos 


Máquina base de datos 

Máquina con alta velocidad de computación 
numérica 

Sistema de comunicación hombre-máquina de 
alto nivel 


Arquitectura VLSI (muy alta escala de integración) 
Arquitectura inteligente VLSI CAD (diseño asistido 
por ordenador) 


Sistemas de programación inteligente 
Sistemas de diseño de bases de conocimientos 


Espoleadas por la tentativa de los japoneses, Francia y Gran Bretaña tienen 
ahora proyectos nacionales de investigación. (¡Tal vez pueda usted contribuir a 
la investigación en su propio país con las experiencias que obtenga de este 
libro!) En el próximo capítulo veremos cómo se estilizan en la práctica algunas 
de las ideas que hemos bosquejado. 
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Sistemas 
expertos en 
funcionamiento 


Los tres sistemas expertos que vienen a continuación son actualmente los 
más conocidos y experimentados: 


e MYCIN, utilizado en el campo de las enfermedades infecciosas. 
e DENDRAL, que analiza componentes de química orgánica. 
e PROSPECTOR, que sugiere el emplazamiento de yacimientos minerales. 


En este capítulo veremos los tres y aprenderemos de ellos algunas caracterís- 
ticas generales. Dedicaremos más atención a MYCIN, ya que parece ser el más 
importante. 


Los experimentos MYCIN en Stanford 


Comenzaremos con el sistema experto de Stanford, una poderosa criatura 
que puede resultar útil en el diagnóstico de enfermedades infecciosas. MYCIN 
es uno de los sistemas expertos más utilizados actualmente, y de su estudio 
podemos extraer muchas conclusiones importantes. Partiendo de la información 
de esta sección, probablemente descubra maneras de desarrollar y ampliar su 
propio sistema experto. 

MYCIN es uno de los sistemas expertos más antiguos que continúan funcio- 
nando. Trabaja apoyándose en un método basado en reglas, en áreas en las que 
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anteriormente no se creía que los datos involucrados en la toma de decisiones 
pudieran ser codificables. 

MYCIN fue precedido en el Stanford Heuristic Programming Project (Pro- 
yecto Stanford de Programación Heurística) por DENDRAL, que es capaz de 
deducir las estructuras moleculares en base a los datos suministrados por un 
espectrógrafo de masas. No obstante, DENDRAL no se diseñó desde un 
principio para ser un sistema experto, sino que evolucionó hasta llegar a serlo 
como resultado de una investigación sobre inducción científica. Además, 
DENDRAL trabaja en un campo en el que los procesos involucrados para la toma 
de una decisión están claramente establecidos antes de que el sistema se cons- 
truyera. MYCIN se inició como un proyecto para la construcción de un sistema 
experto, en un campo donde las reglas para la toma de decisiones eran difusas y 
mal definidas, y el proyecto triunfó. Volveremos a ver a DENDRAL con cierto 
detalle a su debido tiempo. 

MYCIN no está diseñado para sustituir a un médico, sino para desempeñar 
el papel de consejero. El paciente es examinado por el médico que comunica a 
MYCIN los sintomas observados. MYCIN entonces da su diagnóstico, que es 
muy parecido al que podría dar un especialista en las mismas circunstancias. 
Además de ello, MYCIN puede explicar el camino que ha seguido para alcan- 
zar su conclusión. Un desarrollo de este aspecto del comportamiento de 
MYCIN es un sistema experto que instruye a estudiantes de medicina, creando así 
nuevos expertos a partir del saber codificado de otros que les preceden. (Una 
importante fuente de información sobre el proyecto MYCIN es Rule-Based 
Expert Systems, Buchanan, 1984.) Si desea estudiar en detalle la evolución del 
proyecto y las ideas que están detrás, debería leer este libro. 

Un desarrollo posterior de MYCIN, llamado EMYCIN (de Essential 
MYCIN), se creó suprimiendo el saber codificado para la formulación de diagnósti- 
cos (la base de conocimientos) y dejando el motor de inferencia (el bloque 
deductivo). Esto ha permitido crear, con más o menos simplicidad, sistemas 
expertos utilizables en otros temas, ya que se puede acoplar a EMYCIN nuevas 
bases de conocimientos. Esto nos sugiere que hay cosas que se pueden aprender 
de la estructura de EMYCIN y que pueden aplicarse de forma general a los 
sistemas expertos basados en reglas. 


El equipo MYCIN 


Los creadores de MYCIN (que con el tiempo han venido a autodenominar- 
se “el equipo MYCIN”) comenzaron su trabajo sobre el sistema con el propósi- 
to de seguir la iniciativa de un programa llamado SCHOLAR, que estaba 
capacitado para “hablar” muy bien sobre la geografía de América del Sur. No 
obstante, se encontraron con que los datos médicos que utilizaban no encaja- 
ban en una estructura ordenada de forma tan obvia como lo hacían los datos 
geográficos, por lo que la línea SCHOLAR se abandonó. 

La experimentación demostró que los desarrollos más fructíferos apuntaban 
en la dirección de la codificación explícita de reglas específicas —tal como las 
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utilizan los expertos humanos— que unen elementos de una base de datos, en 
vez de intentar desplazar tales reglas para crear trayectorias generales que 
pudieran seguir el proceso de toma de decisiones. El mantener las reglas de esta 
manera implica también que MYCIN puede explicar cómo ha llegado a una 
conclusión dada, utilizando el tipo de frases que los mismos médicos utilizarían. 
(Entre las personas relacionadas con el desarrollo de MYCIN se encuentran 
J. Aikins, S. Axline, J. Bennett, A. Bonnet, B. Buchanan, W. Clancey, 
S. Cohen, R. Davis, L. Fagan, F. Rhame, C. Scott, E. Shortliffe, W. van Melle, 
S. Wraith y V. Yu). 


Las reglas 


El primer problema grande que tuvo que acometer el equipo, una vez que la 
naturaleza de la regla de base había evolucionado, fue que el conocimiento 
humano de las enfermedades infecciosas no encajaba en paquetes ordenados 
mutuamente exclusivos. Frecuentemente la barrera entre un elemento y el 
siguiente dentro de un campo estaba definida de forma difusa. 

La primera implementación del programa disponía de 200 reglas, que fun- 
cionaban en esencia como si fueran líneas mantenidas en la forma de una 
sentencia IF seguida de un THEN (y en ocasiones incluyendo un ELSE). 

En sesiones posteriores se suprimieron los ELSE, ya que se comprobó que 
se utilizaban en ocasiones muy raras. Actualmente MYCIN dispone de más de 
600 reglas. 

Se decidió que MYCIN debería tomar decisiones según el orden siguiente: 


e Decidir qué organismo (si es que había alguno) era el causante significati- 
vo de la infección. 

e Encontrar sobre qué órgano actuaba. 

e Decidir qué medicamentos podrían utilizarse. 

e Sugerir el mejor tratamiento. 


A continuación damos una regla MYCIN típica: 


Si: 1) el tinte del organismo es gram-positivo; 
2) la morfología del organismo es coco, y 
3) la formación de crecimiento del organismo es agrupada, 
entonces hay una evidencia (0.7) de que la identidad del organismo es esfilococo. 


Observe que el número que sigue a “evidencia” (0.7) indica el grado de 
certeza que MYCIN atribuye a su conclusión. 

Este grado de certeza se expresa en una escala que va de —1 a +1, en la 
que —1 es el caso “falso” (desaprobación absoluta de la hipótesis), se pasa por 0 
(no hay evidencia ni a favor ni en contra de la hipótesis, o la evidencia señala 
por igual ambas posibilidades) y se llega hasta 1 (la hipótesis ha sido probada). 
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Los autores dicen que éste es un sistema imperfecto, pero ha funcionado 
apreciablemente bien en el pasado y advierten que debería considerarse única- 
mente como un punto de partida en el camino que lleve a la construcción de un 
sistema lógico y consistente para la toma de decisiones, en áreas donde los 
datos son inciertos, y el dominio es complejo (Shortliffe, 1983). 

La regla se presenta al médico de una manera fácil de comprender tal y 
como se ha expuesto anteriormente. No obstante, internamente las reglas se 
mantienen como listados de LISP, de la manera siguiente: 


PREMISE: (SAND (SAME CNTXT GRAM GRAMPOS) 
(SAME CNTXT MORPH COCCUS) 
(SAME CNTXT CONFORM CLUMPS) 

ACTION: (CONCLUDE CNTXT IDENT STAPHYLOCOCCUS TALLY .7) 


(Probablemente le resultará más fácil entender el listado anterior una vez 
haya leído los apartados sobre EASLE y LISP-A de este libro.) 

A menudo, un sistema experto será utilizado por personas que son menos 
expertas que aquellas cuyo saber está codificado en el sistema. Esto significa que 
el razonamiento que conduce a las conclusiones alcanzadas no siempre será 
evidente. MYCIN dispone de un subprograma denominado CHRONICLER 
que puede responder a preguntas relativas a la terapia recomendada. Un diálo- 
go con CHRONICLER tendría el siguiente aspecto: 


** ¿POR QUE RECETO EL FARMACO “X” PARA LA SITUACION “Y”? 
“X” se receta para “Y” 
Porque 
X es a menudo usado para Y en la enfermedad Z. 
e El elemento Q de los datos del paciente muestra intolerancia al 
fármaco P. 
e X no está contraindicado. 


La ingeniería del conocimiento es un proeso lento y caro. El programa 
TEIRESIAS fue desarrollado para permitirle a MYCIN mejorar su base de 
datos ampliando conocimientos y eliminando errores, inconsistencias y omisio- 
nes. Cuando un médico descubre un diagnóstico erróneo o incompleto, puede 
poner en funcionamiento a TEIRESIAS para que formule una serie de preguntas 
con las que se creará una nueva regla MYCIN. 

MYCIN se ha diseñado para comunicarse con el médico que la utiliza, de 
una manera tan natural como sea posible, y esto se ve claramente en una 
conversación con TEIRESIAS. Las salidas que da el ordenador durante el 
proceso de formación de reglas incluye frases tan “humanas” como las si- 
guientes: 


Me fastidia corregirle, doctor..., pero sabía que la mayor parte de las reglas en 
esta área incluyen... 


Intentaré escribir una cláusula que abarque... 
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Una vez que las reglas están en su sitio, y han sido comprobadas y 
depuradas, MYCIN las compila dentro de una estructura arbórea, y seguida- 
mente la compila en código máquina. 


EMYCIN 


MYCIN tiene dos componentes principales: la base de conocimiento y el 
bloque de inferencia. En 1974, dos años después de que el proyecto MYCIN 
comenzara, los primeros experimentos para la sustitución de la base de conoci- 
miento para diagnósticos por otras relativas a campos distintos estaban subya- 
centes. Para proporcionar al bloque de inferencia material con el que trabajar se 
utilizó como fuente de saber un Pontiac Service Manual y se dieron quince 
reglas relativas al circuito del claxon. (Aunque su estructura es bastante diferen- 
te, la naturaleza del conocimiento encerrado en el programa MECANICO DE 
AUTOMOVILES de este libro se asemeja mucho a las reglas dadas para el 
primer “hijo de MYCIN”,) 

La experiencia adquirida en el campo Pontiac, y en posteriores experimen- 
tos, condujo al desarrollo de EMYCIN (Essential MYCIN). Se trata de un 
bloque de inferencia de estructura MYCIN, junto con una parte importante del 
sistema TEIRESIAS (que, como recordará, se utiliza para añadir nuevas reglas 
a la base de conocimientos mediante una “conversación” directa con un usuario 
no-programador). 

Si ejecutamos EMYCIN con la intención de crear nuestro propio sistema 
experto, pasaremos a través del proceso de creación paso a paso, en un diálogo 
que a veces es como el siguiente: 


— ¿Desea crear una nueva base de conocimientos? 
— Introduzca una palabra o frase que describa su dominio: 


— Introduzca un nombre de una palabra para la raíz de árbol, el objeto central 
con el que las consultas se van a realizar: 


Una vez que la información está en su sitio, EMYCIN se convierte en un 
experto en ese ámbito, y puede utilizarse como un sistema experto. Así pues, el 
programa tiene dos cometidos completamente diferentes. El primero es el de 
admitir datos y elaborar reglas a partir de ellos, y el segundo, el de tomar 
decisiones en base a tales reglas. 

Seguidamente expresamos los cometidos de EMYCIN en forma de dia- 
grama: 
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SABER HUMANO ——> PROBLEMA 
| Al A RESOLVER 


EXPERTO | *EMYCIN* | 
HUMANO (CONSTRUCCION) (CONSULTAS) (CLIENTE) 
| 
le, 4 
¿SON CORRECTAS INFORME ————] 
MIS REGLAS? 
DOMINIO 





BASE DE 


CONOCIMIENTO 


Uno de los mayores problemas a la hora de crear sistemas expertos nuevos 
partiendo de EMYCIN es la carencia de precisión en muchos de los enunciados 
de cualquier idioma. Por supuesto, tal carencia puede cuantificarse, hasta cierto 
punto, al hacer las reglas (como vimos en MYCIN), pero no siempre es posible, 
especialmente cuando EMYCIN pueda estar interpretando incorrectamente los 
datos en bruto de la regla introducida. James Bennett (Buchanan, 1984) está 
desarrollando actualmente un sistema experto (denominado ROGET) que toma 
parte en la creación de nuevos sistemas expertos con EMYCIN, lo que debería 
llevar a una producción más efectiva de hijos de MYCIN. 

A partir de EMYCIN se han desarrollado ya algunos sistemas expertos muy 
efectivos. Entre ellos están SACON, CLOT y PUFF (Buchanan, 1984). SACON 
pretende descubrir un análisis estratégico para un problema particular que 
incluye una estructura específica, mientras que CLOT proporciona informes 
médicos sobre problemas sanguíneos. Otro programa de medicina, PUFF, 
genera informes sobre enfermedades pulmonares, mientras que dos descendien- 
tes de PUFF, CENTAUR y WHEEZE, utilizan la base de conocimientos de 
PUFF, pero manipulándola con estructuras de representación y control diferen- 
tes de las suyas. Otro programa, VM (de Ventilation Manager: gestor de 
oxigenación), está al tanto del estado posoperativo de un paciente al que se le 
ha practicado una intervención cardiovascular de cirugía mayor, cuando la 
respiración asistida se necesita con una frecuencia elevada. 


DENDRAL, un químico prometedor 


DENDRAL, que se escribió antes que MYCIN, es un programa que 
analiza los compuestos orgánicos para determinar su estructura. Este sistema 
experto, desarrollado por E. A. Feigenbaum y J. Lederberg, en Standord, es tan 
efectivo en su cometido que se cree que ningún químico humano podría hacerlo 
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tan bien. Algunos de los análisis de DENDRAL han sido incluso publicados 
como resultados originales de investigación (Rich, 1983). Ha detectado también 
errores en tablas químicas publicadas (Raphaele, 1976). 

El programa intenta deducir la composición química y la estructura orgáni- 
ca de compuestos químicos, utilizando los datos suministrados por un espectro- 
grama de masas de la sustancia y las lecturas de resonancia magnética nuclear. 

DENDRAL sigue básicamente un proceso de tres pasos para la determina- 
ción de la estructura más probable del componente que está analizando. Estos 
tres pasos son proyecto, generación y test (Buchanan, 1981). 

En la etapa de planificación, el sistema utiliza sus reglas internas para 
limitar el tipo de estructuras que serán comprobadas, eliminando las que son 
incompatibles con los datos dados. En la segunda etapa, se producen las 
posibles respuestas, generadas conforme a las reglas básicas de DENDRAL. La 
etapa final consiste en la comprobación de esta estructura. Si no fuera por la 
primera etapa, se podrían generar millones de estructuras posibles, lo que 
llevaría al sistema a necesitar un tiempo exagerado para dar una respuesta. En 
esta etapa se buscan las posibilidades con mucha meticulosidad, para asegurar 
que existen razones químicas de peso que justifiquen cualquier eliminación. 

DENDRAL puede localizar los elementos más importantes de los datos 
comprobados y utilizarlos en conjunción con su conocimiento básico sobre la 
formación de estructuras químicas. Comprueba sus hallazgos mediante un “es- 
pectrómetro de masas simulado” que hace comprobaciones para ver si las 
respuestas potenciales podrían producir el mismo espectrograma que la sustancia 
que está siendo comprobada. Lo mismo que MYCIN, DENDRAL utiliza un 
grupo de reglas empíricas que le han sido dadas por expertos humanos. 

Las lecturas del espectrómetro de masas constituyen una de las más impor- 
tantes unidades de datos con las que DENDRAL trabaja. Un espectrómetro 
separa átomos y moléculas de acuerdo a sus masas diferentes, cargándolas 
eléctricamente de forma que campos magnéticos y/o eléctricos se pueden utilizar 
para separarlos. El espectrómetro produce un gráfico en el que los picos están 
relacionados con las poblaciones de iones particulares en la muestra. (Una 
introducción sencilla sobre el funcionamiento de un espectrómetro se puede 
encontrar en Whitfield, R. C., Spectroscopy in Chemistry, Longmans, Londres y 
Harlow, Green 8 Co., 1969, págs. 61-71.) 

DENDRAL analiza el espectrograma de una sustancia a identificar, y utiliza 
sus reglas condición-acción para producir una lista de subestructuras que deben 
aparecer en la sustancia en cuestión y otra lista de las que no deben hacerlo. 

A continuación damos una regla de DENDRAL (número 75; Winston, 
1984). Como puede ver, es de la misma “familia” que las reglas de MYCIN que 
examinamos anteriormente: 


Si hay un pico alto en 71 unidades de masa atómica 

hay un pico alto en 43 unidades de masa atómica 

hay un pico alto en 86 unidades de masa atómica 

hay cualquier pico en 58 unidades de masa atómica 
entonces debe haber una subestructura N-PROPYL-KETONE3 
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El mecanismo generador de DENDRAL se denomina CONGEÉN, y toma 
como datos de entrada las lecturas del espectrómetro de masas y de otros tests 
químicos. Además, el generador permite imponer límites en las estructuras que 
producirá, tales como el número de átomos de cada tipo en la molécula y 
cualquier otra limitación determinada por el operador (Buchanan, 1981). A partir 
de ellos, CONGEN elabora una lista completa de todas las estructuras posibles 
en base a los datos introducidos. 

Aunque DENDRAL no puede utilizarse en toda su capacidad por aquellos 
que no estén altamente entrenados en las áreas particulares de la química que 
constituyen su dominio, y podría decirse, por tanto, que no satisface uno de los 
requisitos de un sistema experto (poner el saber el alcance de los no expertos), 
opera en este campo mejor que el mejor de los expertos humanos, aunque sabe 
mucho menos que ellos (Simons, 1984). Este sistema ha obtenido valiosos 
resultados en una variedad muy amplia de casos, incluyendo (Buchanan, 1981) la 
determinación de estructuras químicas de compuestos desconocidos en las áreas 
siguientes: 


e Acidos orgánicos en los fluidos humanos. 
e Impurezas en productos químicos. 

e Antibióticos. 

e Hormonas y ferhormonas de insectos. 


Oro en los sistemas Dem Dere 


PROSPECTOR suena como un sueño hecho realidad. Muchos informes de 
sus actuaciones sugieren que, con sólo describirle un terreno, nos dice dónde 
buscar petróleo, oro o diamantes. Pero, por supuesto, la realidad (aunque 
excitante de por sí) no es tan mágica como algunas eufóricas noticias de sucesos 
han sugerido. 

A pesar de ello, algunos de los trabajos de PROSPECTOR han sido muy 
valiosos. Por ejemplo, este sistema experto fue de gran ayuda en el descubri- 
miento de una ramificación, potencialmente muy rica, de un depósito de molib- 
deno existente cerca de Mount Tolman en Washington (Winston, 1984). En 
este caso, los expertos humanos estaban en desacuerdo con los hallazgos de 
PROSPECTOR, y solamente las perforaciones probaron que el sistema tenía 
razón. 

Alrededor de 500 reglas y más de 300 afirmaciones componen la base de 
reglas de PROSPECTOR. Sus reglas deductivas trabajan siguiendo las mismas 
líneas que las reglas de producción de MYCIN (Simons, 1984). No obstante, 
mientras MYCIN puede combinar bastantes posibilidades (un paciente puede 
tener más de una infección a la vez), PROSPECTOR utiliza la inferencia 
probabilística estricta (véase el Apéndice A de este libro relativo al teorema de 
Bayes), suponiendo que las conclusiones del sistema son excluyentes, es decir, no 
pueden aparecer dos resultados a la vez (Rich, 1983). 
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El conocimiento mantenido en PROSPECTOR se obtuvo mediante el típico 
método de preguntar a expertos humanos (geólogos economistas, en este caso) 
cómo trabajan, y codificando este saber. Resulta muy interesante el que por 
separado cada uno de los expertos humanos involucrados dijeran que el proce- 
so de ingeniería del conocimiento les había posibilitado el mejorar sus propias 
ideas en este campo, al verse forzados a planificar con exactitud lo que hicieron 
y cómo lo hicieron (Duda, 1981). 
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Hay algunos pasos que son necesarios para el desarrollo de un sistema 
experto especifico. Empezaremos por el obvio de enunciar el problema. Esta 
declaración se puede hacer en términos exactos, o en términos de lenguaje 
natural. Posteriormente, necesitamos describir la naturaleza de los datos a 
introducir que sirven para alcanzar una conclusión (la salida del sistema 
experto). 

Utilizando esta información, es posible encontrar los mecanismos teóricos 
mediante los cuales se resuelve el problema (es decir, el “cálculo simbólico” que 
se realizará). 

A continuación llegamos a la parte difícil, convertir realmente la percepción 
del problema, y nuestro deseo para un razonamiento particular mediante el cual 
se puede hallar la solución, en un procedimiento (o serie de ellos) que funcionen 
en la práctica. En este punto resulta útil el considerar la incorporación al 
sistema de un “mecanismo elaborador de informes”, que pueda decir al observa- 
dor humano por qué se han seguido ciertas trayectorias y en definitiva explique 
cómo ha alcanzado el sistema su conclusión final. Los procedimientos dispon- 
drán, idealmente, de elementos automodificativos, lo que asegura que las trayec- 
torias inútiles se concluyen rápidamente, reservando así las fuerzas y el tiempo 
del procesado para trayectorias que tienen más probabilidades de estar realmen- 
te relacionadas con el problema. 

Las dos condiciones fundamentales, lógicamente obvias, que deben ser cum- 
plimentadas para que cualquier sistema experto que se desarrolle resulte útil, 
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son las que se indican a continuación. La primera es que el sistema debe hacer 
lo que se pretende hacer. Si hemos realizado un sistema experto para distinguir 
entre varios tipos de conchas marinas, debe estar capacitado para dar muestras 
de los adecuados poderes de razonamiento cuando se le confronta con la gran 
mayoría de los objetos que están dentro de su dominio. En segundo lugar, si un 
sistema no está escrito de modo que la interacción con el usuario se haga de 
una forma razonablemente sencilla, será poco probable que se utilice, por muy 
“inteligente” que tal sistema sea. 

Mientras que el dominio de un programa de ordenador para contabilidad 
personal resulta fácil, la utilización de un sistema experto requiere más que el 
mero conocimiento de los datos de entrada, y de las salidas previstas. Para 
utilizarlo adecuadamente, el usuario necesita comprender los límites entre los 
cuales el programa puede operar. 

Es muy probable que el usuario tenga que perder una gran cantidad de 
tiempo con el programa antes de que él o ella comiencen realmente a compren- 
der sus posibilidades y restricciones. La presentación en pantalla y la documen- 
tación del programa deberían servir para reducir tal período en lo posible. 


Tipos de información 


Normalmente en la mayoría de los sistemas expertos es fácil conocer el 
dominio general de un programa (“carencias vitamínicas”), el contexto de las 
entradas (“piel áspera”, “tendencia a amoratarse fácilmente”) y el de las salidas 
(“la evidencia indica una marcada insuficiencia de vitamina A en la dieta”). Sin 
embargo, la determinación del tipo de información con la que el programa es 
capaz de enfrentarse puede que lleve algún tiempo. 

A veces, cuando se está desarrollando un sistema experto, es muy útil el 
poder decirle que algunas respuestas son más importantes que otras. Imagine- 
mos un programa de diagnóstico médico, dedicado a problemas de espalda. La 
respuesta a una pregunta como “¿Le duele al paciente cuando intenta levantar 
un peso?” Bien podría ser más importante que la respuesta a una pregunta 
como “¿Come el paciente verduras todos los días?” En un caso como éste, el 
sistema experto necesita un método que le permita enfatizar las respuestas 
importantes y quitarle importancia a otras accesorias. 

Para ello, se utiliza lo que se denominan valores de suficiencia lógica para 
las respuestas que debieran ser sobrevaloradas, y valores de necesidad lógica 
para aquellas otras que debieran ser infravaloradas. Para utilizarlos, multiplica- 
mos una respuesta por el valor de suficiencia lógica, si es verdadera, y la 
dividimos por el valor de necesidad lógica si es falsa. Esto asegura que el sistema 
tenderá a valorar más a una sola respuesta que tenga importancia que, por 
ejemplo, a diez que tengan poco interés. 

Imaginemos que hemos desarrollado un sistema experto para diagnosis 
médica que sigue un árbol de decisión, con preguntas y reglas en sus nodos. 
Este tipo de sistema experto puede partir de enunciados objetivos, formular 
preguntas adecuadas, y a continuación utilizar sus reglas para tomar decisiones. 
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Nuestro sistema ha quedado configurado para formular preguntas relevantes 
(“¿Está sudando mucho el paciente?”), aceptar respuestas como sentencias esco- 
gidas de un menú de posibilidades (desde “SI”, hasta “NO”, pasando por “NO 
LO SE”), convertirlas en una probabilidad y posteriormente multiplicar las 
respuestas ciertas por el valor de suficiencia lógica de la pregunta, o dividir las 
falsas por el valor de necesidad lógica correspondiente. 

A menudo es deseable que un sistema experto contenga un mecanismo que 
detenga ciertas líneas del interrogatorio, si las respuestas específicas dadas 
anteriormente indican que tales líneas carecen de significado. Continuar después 
de “¿SE ESTA CAYENDO EL MOTOR A TROZOS POR EL SUELO”” (que 
como respuesta obtiene, digamos, un SI) con una pregunta como “INTENTE 
HACER GIRAR EL MOTOR. ¿DA VUELTAS?” es una pérdida de tiempo, se 
obtienen respuestas que carecen de valor para acercarnos a la conclusión, y 
demuestran convincentemente la carencia de inteligencia que el sistema realmen- 
te posee. 

De la misma manera que necesitamos un medio de impedir que ciertas 
cuestiones se formulen, como resultado de respuestas dadas con anterioridad, 
necesitamos también ser capaces de formular algunas otras cuestiones, solamente 
si se han recibido respuestas positivas a determinadas preguntas. 


Dos tipos de razonamiento 


Según parece, existen dos categorías principales en las que las actividades del 
raciocinio pueden ser emplazadas. El conocimiento de estas categorías simplifica 
la creación de sistemas expertos especificos, hasta el punto de que es posible (y 
casi siempre lo es) decidir en cuál de las categorías encajarán la clase particular 
de problemas a resolver mediante nuestro sistema experto. 
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Con la idea de mejorar las descripciones, preferimos denominar a estas 
categorías por razonamiento “exacto” y razonamiento “aproximado”. Un pro- 
blema de lógica exacto es aquel en el que, dadas todas las entradas, hay una 
salida “verdadera”. Un problema aproximado es aquel en el que las entradas 
están ponderadas numéricamente conforme a su “veracidad”, y la salida está 
también calificada numéricamente. 

Como ya sabemos, las dos partes fundamentales de la mayoría de los 
sistemas expertos (tal como el programa MYCIN de diagnóstico de enfermeda- 
des infecciosas, que vimos detalladamente en el capítulo anterior) se denominan 
base de conocimientos (el saber almacenado) y bloque deductivo o motor de 
inferencia (el mecanismo. de razonamiento). Hemos visto que una gran parte de 
la información que conocemos acerca del mundo no es susceptible de ser 
reducida a números. Nuestras vidas están salpicadas de situaciones con frases 
tales como parece probable, a menudo, a veces y no sé por qué, pero tengo el 
presentimiento de que resolverás el problema si... Para que los sistemas expertos 
tengan utilidad en el mundo no ideal en el que vivimos, que es incontable 
numéricamente, deben estar capacitados para trabajar con la percepción y los 
conceptos humanos. 

Los seres humanos no razonan, como norma, solamente (o incluso princi- 
palmente) siguiendo reglas. En numerosas ocasiones, el peso dado a ciertos 
elementos dentro de una proposición lógica se basa en el “conocimiento del 
mundo real”. 

Esto se demuestra de forma muy clara en la comprensión de textos hablados 
o escritos. Las palabras en tales textos tienen solamente significado dentro de 
un extenso contexto del mundo real. El alcance de nuestro conocimiento del 
entorno, dentro del cual el texto existe, y al cual refleja y modela, dicta el grado 
de comprensión que podemos dar al texto. Esta afirmación, por sí misma, nos 
indica lo dificultoso que es desarrollar sistemas expertos que interactúen con 
nosotros en lenguaje natural. Con la tecnología actual, es imposible inculcar en 
una máquina más de una diminuta fracción de la riqueza de nuestro propio 
conocimiento del mundo real. Y sin esta riqueza, la comprensión del lenguaje 
natural puede ser solamente efectiva (y no mucho, por cierto) dentro de ámbitos 
muy reducidos. 
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Resulta bastante fácil crear un sistema experto primitivo basado en reglas. 
Tales sistemas son quizá de los más sencillos que podemos escribir, aunque 
pueden ser, no obstante, efectivos y útiles y sirven para darnos una idea de 
cómo se han creado otros sistemas expertos análogos, pero más complejos, tales 
como el programa de diagnóstico de enfermedades infecciosas MYCIN. 

En este capítulo le presentaremos MECANICO DE AUTOMOVILES, un 
sistema sencillo basado en reglas, diseñado para ayudar a desesperados profa- 
nos en mecánica (como el autor de este libro) a localizar las posibles causas de 
los problemas que están teniendo con sus coches. Debido a que este programa 
se basa en información real extraída de expertos humanos en este campo, bien 
puede ser que le resulte de verdadera utilidad. 

No obstante, la razón principal para incluirlos en este libro es la de demos- 
trar cómo se puede desarrollar un sistema basado en reglas en el que éstas 
están codificadas en un orden específico, y en el que la respuesta a una pregunta 
dicta la siguiente pregunta que formulará el sistema. 


Los dos componentes de una regla 
La más sencilla de las reglas utilizadas en un sistema experto tiene dos 


partes. Estas son: parte izquierda o LHS (Left Hand Side), que es normalmente 
una sentencia condicional (SI EL ORDENADOR ESTA EN LLAMAS), y una 
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parte derecha o RHS (Right Hand Side), que normalmente es una cláusula 
ENTONCES (ENTONCES ROCIALO CON UN EXTINTOR). Un sistema 
experto basado en reglas de bajo nivel podría ser poco más que una serie de 
pares LHS-RHS presentados en un orden específico. 

Un sistema primitivo de este tipo le permitiría al usuario introducir la 
respuesta a una pregunta (como, por ejemplo, ¿Está el ordenador en llamas 
transformándose tranquilamente en una horrible bola negra?) y entonces buscar 
a través de su colección de reglas para encontrar un emparejamiento entre la 
respuesta dada y la LHS de una regla. En este punto podría o bien sacar la 
RHS pertinente o utilizar la RHS para dirigirse a preguntas posteriores más 
específicas. 

El orden en el que se almacena la colección de reglas es importante, ya que es 
la manera en la que se manejan los emparejamientos LHS. Si hay varias 
condiciones LHS que deben ser localizadas antes de que una RHS sea evocada, 
el sistema debe saber cosas tales como cuántos emparejamientos se necesitan y 
cuán exacta debe ser una respuesta para que constituya un emparejamiento. En 
algunos sistemas expertos tendrá sentido para evocar una RHS el momento en 
el que un emparejamiento se ha hallado. En estos sistemas, en los que una única 
respuesta del usuario puede emparejar con varias LHS, éstas podrían ser 
dispuestas en orden jerarquizado, con los niveles superiores evocados a ser 
posible antes de que los de nivel inferior sean incluso investigados. DENDRAL, 
un sistema basado en reglas que genera información para químicos a partir de 
datos de espectrometría de masas, funciona con reglas jerarquizadas. 

En MECANICO DE AUTOMOVILES, las reglas están en orden estricto, y 
hay una simple y clara trayectoria hacia la regla siguiente. Esta trayectoria es 
efectivamente la RHS de la regla. 

Veámoslo en acción. Comienza con un menú de posibilidades: 


ASI QUE TIENES PROBLEMAS CON EL 
COCHE ? 
VEAMOS SI PODEMOS SOLUCIONAR EL AFURO 
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PULSA LA TECLA QUE DESCRIBE EL 
PROBLEMA 


[5 
¡7 


A.—- EL MOTOR NO ANDA, NO FUNCIONA. 
B.- EL MOTOR FUNCIONA PERO N() ARRANCA 
C.- ARRANCA PERO SE PARA ENSEGUIDA. 
D.—- EL COCHE ANDA PERO SE ATASCA. 

Y SE CALA FRECUENTEMENTE. 
E.- EL COCHE ANDA PERO SIN POTENCIA. 
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Pongamos por ejemplo que nuestro problema es el segundo: EL MOTOR 
DA VUELTAS PERO NO ARRANCA. Una vez que le hemos dicho esto, nos 
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conduce a través de una serie de puntos de comprobación y de sugerencias para 
la realización de reparaciones de emergencia: 


< DE ACUERDO, B > 
COMPRUEBA LOS CABLES. 
CABE LA POSIBILIDAD DE QUE ESTEN HUME 
DOS ? 


El 


(S-SI . N-NO0) ? 
< DE ACUERDO, S > 
ROCIALOS CON UN SPRAY SUPRESOR DE 
HUMEDAD. 

HAY POLVO VISIBLE EN LA PARTE 
AISLANTE DE LA BOBINA O EN LA TAPA 
DEL DISTRIBUIDOR ”? 

(S-SI . N-NO) ? 

< DE ACUERDO, S > 

LIMPIA LA PARTE DE LA BOBINA ASI 
COMO EL INTERIOR Y EXTERIOR DE LA 
TAPA DEL DISTRIBUIDOR. 
ASEGURATE DE QUE TODOS LOS CABLES 
ESTAN SECOS Y SUJETOS ANTES DE CONTI 
NUAR. 

SI EL MOTOR TODAVIA NO ARRANCA, 
ENTONCES HAY QUE MIRAR LAS BUJIAS. 

SALTAN CHISPAS DE 9 O MAS MILIMETROS 
ENTRE LOS ELECTRODOS DE LAS BUJIAS ? 

(S-SI . N-NO) ? 


FLORES 


El orden en el que el sistema experto nos da sus indicaciones y las sugsTen: 
cias que nos hace dependen de las respuestas que le demos: 


< DE ACUERDO, S > 
LAS BUJIAS ESTAN DEFECTUOSAS. 
ESTAN SUCIAS LAS BUJIAS ? 
(S-SI . N-NO0) ? 
< DE ACUERDO, N > 
SI SE TRATA DE UNA EMERGENCIA, PRUEBA 
A REDUCIR LA SEPARACION DE LOS ELEC- 
TRODOS, MAS O MENOS A LA MITAD. 
TIENES GASOLINA EN EL DEPOSITO ? 
(S-SI . N-NO) ? 
< DE ACUERDO, S > 
ESTAN LOS CONDUCTOS DE LA GASOLINA 
LIMPIOS ? 


(S-SI . N-NO) ? 


< DE ACUERDO, S > 
RETIRA EL FILTRO DE AIRE DEL CARBURA- 
DOR. 
PARECE SECO ? 


1) 


(S-SI . N-NO) ? 
< DE ACUERDO, N > 
HAS ESTADO UTILIZANDO MUCHO El 
ARRANQUE EN LOS ULTIMOS MINUTOS 2 
(S-SI . N-NO) ? 
< DE ACUERDO, S > 
ESPERA ALREDEDOR DE UN MINUTO. 
SEGUIDAMENTE MANTEN EL ACELERADOR 
PISADO A FONDO Y SIN MOVERLO. 
DALE AL CONTACTO, AHORA DEBERIA 
ARRANCAR. 


go 


(S-SI . N-NO) ? 


Ñ 


Si tiene alguna vez problemas para poner en marcha su coche, y quisiera 
que su ordenador le librara de tener que llamar a un servicio mecánico de 
reparaciones de emergencia, cargue el listado siguiente en su ordenador y así 
tendrá un consejero de MECANICO DE AUTOMOVILES a su disposición: 
















I 

De 10 REM MECANICO DE AUTOMOVILES O 
1 20 CLS:KEYOFF 

O | 30 PRINT "ASI QUE TIENES PROBLEMAS CO 1 
N EL COCHE 2?" , O 
|. 40 PRINT "VEAMOS SI PODEMOS SOLUCIONA | 
Ir REL APURO" 

9 |. 50 PRINT O 
| 60 PRINT "PULSA LA TECLA QUE DESCRIBE — ! 
On EL PROBLEMA" ro 
170 PRINT 
| 80 PRINT "A.- EL MOTOR NO ANDA, NO FU 1 
O |  NCIONA." LO 
| 90 PRINT "B.- El MOTOR FUNCIONA PERO 
¡NO ARRANCA" 

O | 100 PRINT "C.— ARRANCA PERO SE PARAE 1 O 
!.- NSEGUIDA." 
¡110 PRINT "D.— EL COCHE ANDA PERO SE 1 
O ¡  ATASCA." 136) 
¡| 120 PRINT " Y SE CALA FRECUENTEMEN | 
TE 0 





O (e 0 0 


O 


O 


130 PRINT "E.— EL COCHE ANDA PERO SIN 
POTENCIA." 

140 IF INKEY$="" THEN 140 

150 A$=INKEYS$ 

1560 IF A$<"A” OR A$>"E” THEN 150 

170 GOSUB 1540: CLS 

180 ON ASC(A$)-64 GOTO 210,580,1180,1 
210, 1330 

190 END 

200 REM III IE HE IE DE DE ME EME HI III III IE II 
210 REM MOTOR NO ANDA 

220 PRINT:PRINT "EMPECEMOS COMPROBAND 
O LA BATERIA." 

230 PRINT "ENCIENDE LAS LUCES DEL COC 
HE." 

240 PRINT TAB(6)3 "TIENEN POCA INTENSI 
DAD 2" 

250 GOSUB 1500 

260 IF A$="N" THEN 370:REM BATERIA EN 
BUEN ESTADO 

270 PRINT "SE HA SOLTADO ALGUN CABLE 
DE LA" 

280 PRINT "BATERIA O ESTAN SUS TERMIN 

ALES SULFATADOS >?" 

290 GOSUB 1500 

300 IF A$="S" THEN PRINT "LIMPIALOS Y 
APRIETALOS FUERTE." 

310 GOSUB 1560 

320 PRINT "ESTA FLOJA LA CORREA DEL Y 
ENTILADOR 2" 

330 GOSUB 1500 

340 IF A$="S" THEN PRINT TAB(5)5”"ASEG 

URA Y TENSA LA CORREA." 

350 GOSUB 1560 

360 PRINT "PONTE AL VOLANTE Y FRUEBA;5 
SI NO DANDOLE UN EMPUJON DEBERIA 
ARRANCAR. ":GOTO 1590 

370 PRINT "ESTA AFLOJADO O SUCIO EL E 
XTREMO DEL CABLE QUE VA DE LA BATERIA 


380 PRINT "AL MOTOR DE ARRANQUE 2?" 
390 GOSUB 1500 

400 IF A$="S" THEN PRINT "APRIETALO Y 
LIMPIA LAS CONEXIONES. " 

410 GOSUB 1560 


Os “O 207 0 


O 


O. PO" O UD 
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DoS Do + 


O 


O 


420 PRINT "PUENTEA EL CONTACTO DEL MO 

TOR DE ARRANQUE. " 

430 PRINT "FUNCIONA AHORA 2?" 

440 GOSUB 15300 

450 IF A$="S" THEN PRINT "PROBABLEMEN 

TE LA LLAVE DE CONTACTO NO FUNCIONA E 

ORRECTAMENTE. ” 

460 GOSUB 1560 

470 IF A$="S" THEN PRINT "DEBERIAS CA 
MBIARLA. ":GOTO 1590 

480 PRINT "HACE UN CHASQUIDO EL ARRAN 

QUE?" 

490 GOSUB 1500 

500 IF A$="S" THEN PRINT "PUEDE SER Q 
UE EL MOTOR DE ARRANQUE ESTE ATASCA 
DO.":GOTO 550 

510 PRINT "SI NO LO HACE, PROBABLEMEN 
TE SE DEBE AL CONTACTOR. " 

520 PRINT "UN EMPUJON FUEDE HACER QUE 
ARRANQUE. ":GOTO 1390 

530 REM %* STARTER ATASCADO ** 

540 PRINT " QUITA EL CONTACTO ." 

550 PRINT " METE UNA VELOCIDAD LARGA 

Y EMPUJA" 

560 PRINT "EL COCHE UNOS CENTIMETROS 

PARA DESA- TASCAR EL ARRANQUE. ":GOTO 
1390 

570 REM 4400 HIDE ME IE MIE REI MIERDA 
580 REM DA VUELTAS PERO NO ARRANCA 

590 PRINT " COMPRUEBA LOS CABLES." 
600 PRINT "CABE LA POSIBILIDAD DE QUE 
ESTEN HUMEDOS 7” 

610 GOSUB 1500 

620 1F A$="S" THEN PRINT "ROCIALOS CO 


N UN SPRAY SUPRESOR DE HUMEDAD. ": 
OSUB 15360 

630 PRINT " HAY POLVO VISIBLE EN LA P 
ARTE AISLANTE DE LA BOBINA O EN 
LA TAPA" 


640 PRINT "DEL DISTRIBUIDOR 2" 

650 GOSUB 1500 

660 1F A$="S" THEN PRINT "LIMPIA LA P 
ARTE DE LA BOBINA ASI" 

670 1F A$="S" THEN PRINT "COMO EL INT 
ERIOR Y EXTERIOR DE LA TAPA DEL DI 


O 10, dl + 


O 


O ¿(O 2, ¿07 e GAO MOL, Or, O 


O 


O 


STRIRBUIDOR.":GOSUB 1560 

680 PRINT "ASEGURATE DE QUE TODOS LOS 
CABLES ESTAN SECOS Y SUJETOS ANTE 
S DE CONTI-NUAR. " 

690 GOSUB 1560 

700 PRINT " SI EL MOTOR TODAVIA NO AR 
RANCA, ENTONCES HAY QUE MIRAR LAS 
BUJIAS." 

710 PRINT " SALTAN CHISPAS DE 9 O MAS 
MILIMETROS" 

720 PRINT "ENTRE LOS ELECTRODOS DE LA 
S BUJIAS 2" 

730 GOSUB 1500 

740 IF A$="S" THEN PRINT "LAS BUJIAS 

ESTAN DEFECTUOSAS. ":GOSUB 1560 

750 IF A$="N" THEN 820 

760 PRINT " ESTAN SUCIAS LAS BUJIAS ? 


770 GOSUB 1500 

780 IF A$="S" THEN PRINT " NO SE PUED 
E HACER UNA REPARACION DE EMERGENCIA" 
790 IF A$="S" THEN PRINT " MIENTRAS L 
AS BUJIAS ESTEN ASI.":GOSUB 1560:GOTO 
760 

800 IF A$="N" THEN PRINT "SI SE TRATA 
DE UNA EMERGENCIA, PRUEBA" 

810 IF A$="N" THEN PRINT "A REDUCIR L 
A SEPARACION DE LOS ELEC- TRODOS, MAS 
O MENOS A LA MITAD. ":GOSUB 1560: GOTO 
900 

820 PRINT " NO SALTA NINGUNA CHISPA ? 

830 GOSUB 1500 

840 IF A$="N" THEN 760 

850 GOSUB 860:GOTO 1390 

860 PRINT "OBSERVA SI HAY ALGUNA GRIE 

TA EN EL ROTOR, LA BOBINA O LA TAPA 
DEL DISTRIBUIDOR." 

870 PRINT " SI NO HAY NINGUNA, " 

880 PRINT " ENTONCES EL PROBLEMA PUED 

E QUE ESTE EN LOS PLATINOS O EN EL CO 

NDENSADOR. " 

890 PRINT " UNA REPARACION PUEDE SER 

NECESARIA. ": RETURN 

900 PRINT " TIENES GASOLINA EN EL DEP 


OO UQ 10 


O 


O 
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DAD O 00 


O 


OSITO 2" 

910 GOSUB 1500 

920 IF A$="N" THEN PRINT "LLENALO E I 
NTENTALO OTRA VEZ.":GOSUB 15640 

930 PRINT "ESTAN LOS CONDUCTOS DE LA 
GASOLINA LIMPIOS 2" 

940 GOSUB 1500 

950 IF A$="N" THEN PRINT "ATIENDELOS 
Y PRUEBA OTRA VEZ.":GOSUB 1560 

960 PRINT "RETIRA EL FILTRO DE AIRE D 
EL CARBURA-DOR. " 

970 GOSUB 1560 

980 PRINT " PARECE SECO ?" 

990 GOSUB 1500 

1000 IF A$="N" THEN 1070 

1010 PRINT ” GIRA EL MOTOR UNAS CUANT 
AS VECES," 

1020 PRINT "BLOQUEANDO CON LA MANO LA 
TOMA DE AIRE. ":GOSUB 1560 

1030 PRINT "ESTA TU MANO HUMEDA DE GA 

SOLINA 2" 

1040 GOSUB 1500 

1050 IF A$="N" THEN PRINT "DESENROSCA 
LA CUBA DE GASOLINA: EN EL CASO DE (Q 

UE EL RESPIRADERO ESTE OBS-TRUIDO, " 
1060 IF A$="N" THEN PRINT "PUEDE QUE 

NO FUNCIONE LA BOMBA DE LA GASOLINA. " 
:GOSUB 890:GOTO 1590 

1070 PRINT "HAS ESTADO UTILIZANDO MUC 

HO El ARRANQUE EN LOS ULTIMOS M 
INUTOS 2" 

1080 GOSUB 1500 

1090 IF A$="N" THEN 1130 

1100 PRINT "ESPERA ALREDEDOR DE UN MI 

NUTO. SEGUIDAMENTE MANTEN EL AC 

ELERADOR" 

1110 PRINT "PISADO A FONDO Y SIN MOVE 

RLO." 

1120 PRINT " DALE AL CONTACTO, AHORA 

DEBERIA ARRANCAR. ":GOTO 1590 

1130 PRINT " PUEDE QUE LA VALVULA DEL 
FLOTADOR ESTE AGARROTADA, CUEDANDO 

SE ABIERTA." 

1140 PRINT " Y QUE EL CARBURADOR ESTE 
INUNDADO. ":GOSUB 1560 


O 


Or “Do 20% TO 0, 0 


O" O” OO 


1150 PRINT "GOLPEA LIGERAMENTE LA TAP 
A DEL CARBU-RADOR PARA QUE SE CIERRE. 


1160 PRINT "DESPUES INTENTA ARRANCAR 
OTRA VEZ.":GOTO 1590 

1170 REM 06d III MM III MIMI IMA 
1180 REM ARRANCA PERO SE PARA 

1190 PRINT "ESTO SUGIERE UN FUNCIONAM 
IENTO DEFEC-TUOSO DE LA RESISTENCIA T 
ERMICA, QUE DEBERIA SER SUSTITUIDA.": 
GOTO 1590 

1200 REM 446466 III II MI IRE IIEMIA 
1210 REM FUNCIONA PERO SE CALA MUCHO 
1220 PRINT "LA CAUSA PUEDE SER CUALQU 
IERA DE LAS SIGUIENTES :" 


1230 PRINT "- CABLES SUELTOS O EN COR 
TOCIRCUITO." 

1240 PRINT "- CHISPAS DEBILES." 

1250 PRINT "- UN FALLO EN EL SISTEMA 


DE ALIMENTA CION." 

1260 PRINT:PRINT "COMPRUEBA PRIMERO ( 

UE NO HAY NINGUN CABLE SUELTO O EN € 
ORTOCIRCUITO.” 

1270 PRINT "SI NO ESTAN BIEN, REPARAL 
OS. EN CASO CONTRARIO, EL FALLO PODR 
IA ESTAR EN LAS BUJIAS." 

1280 GOSUB 860 

1290 PRINT " PODEMOS HACER UNA ULTIMA 
COMPROBA-" 

1300 PRINT "CION; LOS PLATINOS. ": GOSU 
B 1560 

1310 GOTO 1340 

1320 REM 604063600 IMHE IMEI III I EE 
1330 REM ANDA, PERO HOLGAZANEANDO 
1340 PRINT "BIEN PODRIA SER QUE UNA O 
VARIAS DE” 

1350 PRINT "LAS BUJIAS, ESTEN DEFECTU 
OSAS. ":GOSUB 15360 

1360 PRINT " DESCONECTA UNA CADA VEZ; 
1370 PRINT " AQUELLAS CUYA DESCONEXIO 
N NO AFECTE AL RALENTI, SON LAS QUE F 
ALLAN. " 

1380 PRINT "COMPRUEBALAS VOLVIENDO AL 
SISTEMA." 


7 E ¿00 “00 8 


O 


1390 GOSUB 1560 
1400 PRINT "COMO RESULTADO DE LA COMP 
ROBACION, HAS ENCONTRADO ALGUNA BUJ 
IA DEFEC-  TUOSA 2?" 

1410 GOSUB 1500 

1420 IF A$="S" THEN PRINT "A SER POSI 
BLE CAMBIALAS TODAS, O AL" 

1430 IF A$="S" THEN PRINT "MENOS LAS 
DEFECTUOSAS. ":GOSUB 1560 

1440 PRINT "DESCARTADO EL FALLO DE Bu 
JIAS, LA" 

1450 PRINT " CAUSA MAS FRECUENTE DE U 
N RALENTI IRREGULAR ES UNA MEZCLA D 
EMASIADO " 

1460 PRINT "RICA; POR LO QUE DEBERIAS 
AJUSTARLA. " 

1470 PRINT "PRUEBA TAMBIEN A AJUSTAR 

EL RALENTI." 

1480 GOTO 1590 

1490 REM dede dE dd IE IE IE IE IE IE IE IE IE IE IE IE IE IEEE E 
1500 PRINT TAB(16)3"(S-SI . N-NO) 2" 
1510 IF INKEY$<>"" THEN 1510 

1520 A$=INKEYS 

1530 IF A$<>"S" AND A$<>"N" THEN 1520 
1540 PRINT TAB(10)3"< DE ACUERDO, *; 

q >" 

1550 BEEP:REM INCLUYE *BEEP? O UN 

SONIDO SIMILAR EN ESTA 
LINEA 

1560 FOR T=0 TO 1000:NEXT T 

1570 PRINT 

1580 RETURN 

1590 PRINT 

1600 PRINT "HAS ENCONTRADO YA LA SOLU 

CION 2" 

1610 GOSUB 1500 

1620 1F A$="S" THEN CLS: END 

1630 GOTO 20 


O 
O ¿(0 O 


Or ERE. O 
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Espero que al utilizar este programa, además de ver cómo puede funcionar 
un sistema basado en reglas, pueda también apreciar las desventajas reales de 
tener un sistema en el que las reglas son hard-wired. Estas resultan extremada- 
mente difíciles de modificar, so pena de destruir casi totalmente el programa. 
También pudiera resultar difícil la localización de un error de apreciación 


4 


mediante el sistema, y no hay posibilidad de que éste “aprenda su tarea” 
mientras trabaja, tal y como lo hacen otros programas (como FUZZY RITA) 
que veremos después en este mismo libro. 

A pesar de sus desventajas, un sistema hard-wired construido para un 
propósito concreto, como MECANICO DE AUTOMOVILES, es mucho más 
práctico dentro de su dominio de lo que sería un sistema general que hubiera 
sido enseñado en relación al tema. 

Al determinar el tipo de sistema experto que mejor solucione unas necesida- 
des específicas, será necesario ponderar estas ventajas y desventajas. 
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S 
ES 





El doctor está 
dentro 


En mi libro Inteligencia artificial: conceptos y programas (Anaya Multimedia, 
1985) presenté un sistema experto imaginario llamado MÉDICO, que hacía una 
serie de preguntas y a partir de las respuestas daba un informe sobre salud y 
longevidad. Ahora he decidido crearlo realmente para este libro. 

El mejor camino para vivir muchos años es elegir padres y abuelos longe- 
vos. Como esta elección está fuera del alcance de todos nosotros, lo mejor es 
aceptar el segundo camino que consiste en vivir día a día aplicando los conoci- 
mientos sobre salud y nutrición que el hombre ha adquirido. Por supuesto, 
pocos de nosotros vivimos lo inteligentemente que podríamos hacerlo, o aplica- 
mos toda la información de que disponemos. Si no fuera así, la vida sería tal 
vez bastante aburrida. 

MEDICI le permitirá deducir cómo vive realmente, en vez de pedirle infor- 
mación sobre la salud en la que usted cree, pero no aplica coherentemente a su 
estilo de vida. 

Una vez que el sistema experto le haya dado sus “condiciones” de salud y 
comentado su estado, le indicará el rango dentro del que puede situarse su 
esperanza de vida. Entonces, puede volver a hacer funcionar el sistema, y ver 
qué cambios debería introducir en su estilo de vida para poder incrementar el 
número de años durante los cuales podría escribir sistemas expertos en su 
ordenador. 

Probemos MEDICI con alguien (por ejemplo, alguien con pocas ganas de 
trabajar) y veamos lo que ocurre: 
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MONOWuD 
| 
zx 
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ú 
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CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD 2 
( SELECCIONA UNA ) 


— MI PESO ES REALMENTE EXCESIVO. 
PESO ES MAYOR DE LO NORMAL. 
PESO ES LIGERAMENTE ELEVADO. 
PESO ES LO JUSTO PARA MI. 

SOY MAS DELGADO DE LO QUE DESEO. 


l 
z 
mt 


| 
z 
. 


DE ACUERDO ;C 


CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD ? 
( SELECCIONA UNA ) 


ME OCUPO DE HACER EJERCICIO QUE 
ELEVE MIS PULSACIONES A 120 O MAS, 
DURANTE AL MENOS EL SIGUIENTE NUMERO 

DE HORAS A LA SEMANA: 


A — MENOS DE UN CUARTO DE HORA. 

B — ENTRE UNO Y TRES CUARTOS DE HORA 

C — ENTRE TRES CUARTOS Y HORA Y 
MEDIA. 

D — ENTRE UNA Y MEDIA Y DOS Y MEDIA. 

E — MAS DE DOS Y MEDIA. 


DE ACUERDO 5A 


CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD ? 
( SELECCIONA UNA ) 


CUANDO CONDUZCO : 
A — MUY RARAS VECES LLEVO EL CINTURON 
DE SEGURIDAD. 
B — LA CUARTA PARTE DE LAS VECES 
LLEVO PUESTO EL CINTURON DE SEGURIDAD 


C - DE CADA DOS DESPLAZAMIENTOS, EN 
UNO LLEVO PUESTO EL CINTURON DE SEGU- 
RIDAD. 

D -— LA MAYOR PARTE DE LAS VECES ME 
PONGO EL CINTURON, FERO NO SIEMPRE. 

E — SIEMPRE UTILIZO EL CINTURON. 


DE ACUERDO 3E 


CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD ”2 
( SELECCIONA UNA ) 


SOY CONSCIENTE DE LA NUTRICION Y 
TRATO DE COMER CON SALUD ... 


SIEMPRE. 

CASI SIEMPRE. 

LA MITAD DE LAS VECES. 
DE VEZ EN CUANDO. 
PRACTICAMENTE NUNCA. 


MUNmD 
l 


DE ACUERDO ;D 


CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD ? 
( SELECCIONA UNA ) 


TABACO ( LOS PUROS Y CIGARROS CUENTAN 
COMO CIGARRILLOS ) 

A -— NO FUMO. 

B MENOS DE 15 CIGARRILLOS AL DIA. 
C- DE 15 A 25 CIGARRILLOS AL DIA. 
D-— DE 26 A 42 CIGARRILLOS AL DIA. 

E —- MAS DE 42 CIGARRILLOS AL DIA. 


DE ACUERDO 3zA 
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CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD ? 
( SELECCIONA UNA ) 


ALCOHOL -— CUANTAS BEBIDAS (POR TER- 
MINO MEDIO) TOMAS CADA DIA ? 


A — NINGUNA. 
B — MENOS DE TRES. 
C-— ENTRE 3YG6A. 
D — ENTRE 7YJ9. 
E — MAS DE 9. 
DE ACUERDO 5C 
=6 


CUAL DE LAS SIGUIENTES AFIRMACIONES 
ESTA MAS CERCA DE LA VERDAD “ 
( SELECCIONA UNA ) 


EN GENERAL, COMO HA SIDO TU VIDA EN 
LOS ULTIMOS 6 MESES 5 SEGUN TU 
OPINION ? 


A — EXTREMADAMENTE AJETREADA. 

B -— MEDIANAMENTE AJETREADA. 

C — LIGERAMENTE AJETREADA. 

D — NORMAL. 

E — NADA AJETREADA, MUY TRANQUILA. 
DE ACUERDO ¡¿C 

=3 


VALDRACION PERSONAL DE MEDICI : 


PESO 2-5 
EJERCICIO : O 
AUTO-SEGURIDAD : 8 
NUTRICION : 1 
TABACO : O 
ALCOHOL :-6 
STRESS :-5 
LA VALORACION TOTAL ES :-7 


EN UNA ESCALA DONDE CERO ES EL 
TERMINO MEDIO, EL MINIMO SE ALCANZA 
EN -83, Y EL MAXIMO EN 37. 


ESTO INDICA QUE TU ESTADO DE SALUD 
ESTA POR DEBAJO DEL TERMINO MEDIO. 


ESPERANZA DE VIDA : 
HOMBRE MUJER 
60 A 66 65 A 71 


= 


_ 
L 


PS] 


z) 


Be, 


A continuación viene el listado, para que pueda comprobar su estado actual 
de salud: 





















180 PRINT 








170 PRINT " DE HORAS A LA SEMANA: " 


O 10 REM * MEDICI — CHEQUEO PERSONAL + 
¡20 REM TODAS LAS ENTRADAS 
O : EN MAYUSCULAS 
Il. 30 CLS:KEYOFF 
| 40 GOSUB 1260 
O |! 50 PRINT:PRINT"A — MI PESO ES REALMEN 
|. TE EXCESIVO." 
60 PRINT:PRINT"B — MI PESO ES MAYOR D 
O | E LO NORMAL." 
Il. — 70 PRINT:PRINT"C — MI PESO ES LIGERAM 
ENTE ELEVADO." 
O | 80 PRINT:PRINT"D — MI PESO ES LO JUST 
Il. O PARA MI." 
90 PRINT:PRINT"E -— SOY MAS DELGADO DE 
O] LO QUE DESEO. " 
¡100 GOSUB 1150 
¡110 PESO=5*(ASC(A$)-68):1F A$="E" THE 
O | N PESO=0 
! 120 PRINT PESO 
130 GOSUB 1230 
O 140 PRINT " ME OCUPO DE HACER EJERCIC 
10: QUE" 
o! 150 PRINT "ELEVE MIS PULSACIONES A 12 
¡| 00 MAS," 
| 160 PRINT "DURANTE AL MENOS EL SIGUIE 
O 1 NTE NUMERO" 
! 





51 


52 


$) 


EE OSO 


O 


190 PRINT:PRINT "A — MENOS DE UN CUAR 
TO DE HORA." 

200 PRINT:PRINT"B -— ENTRE UNO Y TRES 
CUARTOS DE HORA" 

210 PRINT:PRINT "C — ENTRE TRES CUART 


OS Y HORA Y MEDIA." 
220 PRINT "D — ENTRE UNA Y MEDIA Y DO 
S Y MEDIA." 


230 PRINT:PRINT "E — MAS DE DOS Y MED 
IA." 

240 GOSUB 1150 

250 EJERCICIO=5* (ASC (A$)-63)-5: 1F At= 
"A" THEN EJERCICIO=0 

260 PRINT EJERCICIO 

270 GOSUB 1230 

280 PRINT * CUANDO CONDUZCO :":PRINT 

290 PRINT:PRINT "A — MUY RARAS VECES 

LLEVO EL CINTURON DE SEGURIDAD." 

300 PRINT:PRINT "B — LA CUARTA PARTE 

DE LAS VECES LLEVO PUESTO EL CINT 
URON DE SEGURIDAD. " 

310 PRINT:PRINT "C — DE CADA DOS DESP 
LAZAMIENTOS, EN UNO LLEVO PUESTO EL 

CINTURON DE SEGU-RIDAD. " 

320 PRINT:PRINT "D — LA MAYOR PARTE D 
E LAS VECES ME PONGO EL CINTURON, P 
ERO NO SIEMPRE." 

330 PRINT:PRINT "E — SIEMPRE UTILIZO 

EL CINTURON. " 

340 GOSUB 1150 

350 CI=2* (ASC (A$)-65) 

360 PRINT CI 

370 GOSUB 12:30 

380 PRINT *" SOY CONSCIENTE DE LA NUTR 
ICION Y TRATO DE COMER CON SALUD . 


390 PRINT 

400 PRINT:PRINT "A -— SIEMPRE.” 

410 PRINT:PRINT "B -— CASI SIEMPRE." 
420 PRINT:PRINT "C — LA MITAD DE LAS 
VECES." 

430 PRINT:PRINT "D — DE VEZ EN CUANDO 


440 PRINT:PRINT "E — PRACTICAMENTE NU 
NCA. " 


¿A Y ES: 


O 


450 GOSUB 1150 

460 DIETA=-ASC(A$)+69 

470 PRINT DIETA:GOSUB 1230 

480 PRINT "TABACO ( LOS PUROS Y CIGAR 

ROS CUENTAN COMO CIGARRILLOS )” 

490 PRINT:PRINT "A — NO FUMO." 

500 PRINT:PRINT "B MENOS DE 15 CIGA 

RRILLOS AL DIA." 

510 PRINT:PRINT "C — DE 15 A 25 CIGAR 

RILLOS AL DIA." 

520 PRINT:PRINT "D — DE 26 A 42 CIGAR 

RILLOS AL DIA.” 

530 PRINT:PRINT "E — MAS DE 42 CIGARR 

ILLOS AL DIA." 

540 GOSUB 1150 

550 TABACO=-7+*(ASC (A$) -65) 

560 PRINT TABACO 

570 GOSUB 1230 

580 PRINT " ALCOHOL — CUANTAS BEBIDAS 
(POR TER- MINO MEDIO) TOMAS CADA DIA 
2.4 

590 PRINT 

600 PRINT:PRINT "A — NINGUNA. ” 

610 PRINT:PRINT "B —- MENOS DE TRES." 

620 PRINT:PRINT "C — ENTRE 3 Y 6." 

630 PRINT:PRINT "D — ENTRE 7 Y 9 ." 

640 PRINT:PRINT "E — MAS DE 9 ." 

650 GOSUB 1150 

660 BEBIDA=-30 

670 IF A$="A" THEN BEBIDA=0 

680 IF A$="B" THEN BEBIDA=1 

690 IF A$="C" THEN BEBIDA=BEBIDA/5 

700 IF A$="D" THEN BEBIDA=BEBIDA/2 

710 PRINT BEBIDA 

720 GOSUB 1230 

730 PRINT " EN GENERAL, COMO HA SIDO 

TU VIDA EN" 

740 PRINT ” LOS ULTIMOS 6 MESES 3 SEG 


UN TU OPINION 2" 

730 PRINT 

760 PRINT:PRINT "A — EXTREMADAMENTE A 
JETREADA." 


770 PRINT:PRINT "B — MEDIANAMENTE AJE 
TREADA." 
780 PRINT:PRINT "C — LIGERAMENTE AJET 


O 


O: ¿0 0. 0 


O 
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Or O 0). 2001 30 


O 


READA. " 

790 PRINT:PRINT "D — NORMAL.” 

800 PRINT:PRINT "E — NADA AJETREADA, 

MUY TRANQUILA." 

810 GOSUB 1150 

820 STRESS=INT (2. 5* (ASC (A$)-469) ) 

830 PRINT STRESS 

840 GOSUB 1290 

850 PRINT:PRINT ” VALORACION PERSONAL 
DE MEDICI :" 

860 PRINT 

870 PRINT TAB(5)5"PESO :”"5PESO 

880 PRINT TAB(S5)5 "EJERCICIO :"5EJERCI 
cIo 

890 PRINT TAB(5)5"AUTO-SEGURIDAD :"5C 
I 

900 PRINT TAB(3)5 "NUTRICION :"5DIETA 

910 PRINT TAB(S)3"TABACO :"5 TABACO 

920 PRINT TAB(S5)5"ALCOHOL :"53BEBIDA 

930 PRINT TAB(S)5 "STRESS : "¡STRESS 
940 GOSUB 1290 

950 ANT=PESO+EJ+CI+DI+TA+BE+ST 

960 GOSUB 1290: PRINT 

970 PRINT " LA VALORACION TOTAL ES : 
"5 ANT: PRINT 

980 PRINT "EN UNA ESCALA DONDE CERO E 

S EL” 

990 PRINT "TERMINO MEDIO, EL MINIMO S 

E ALCANZA" 

1000 PRINT "EN -83, Y EL MAXIMO EN 37 


1010 GOSUB 1290 
1020 PRINT:IF ANT<ó6 AND ANT>-6 THEN A 
="TA EN UN TERMINO MEDIO. ":L$="62 A 
73 724 78” 

1030 IF ANT<-5 AND ANT>-21 THEN A$="T 

A POR DEBAJO DEL TERMINO MEDIO. ":L$=" 

60 A 56 65471" 

1040 IF ANT<-20 THEN A$=" POBRE. ":L$= 
"50 O MENOS 65 O MENOS" 

1050 IF ANT<-45 THEN A$=" MUY POBRE." 
1060 1F ANT<-45 THEN A$=" MUY, MUY PO 

BRE." 

1070 IF ANT>S AND ANT<15 THEN A$=" BU 

ENO.":L$="74 A 80 79 A 85" 


is O”. LO O 


O 

























1080 1F ANT>14 THEN A$=" ESTUPENDAMEN 

TE BUENO. ":L$="81 O MAS 86 O MAS" 
1090 PRINT " ESTO INDICA QUE TU ESTAD 

O DE SALUD ES"5As$ 

1100 PRINT 

1110 PRINT " ESPERANZA DE VIDA :" 
1120 PRINT TAB(4)5 "HOMBRE MUJE 

R" 

1130 PRINT TAB(4)5L$ 

1140 PRINT:END 

1150 REM Add dd IE IE IE IE RE IE HE IED DE IEEE IE IE IE IE TEN 
1160 REM ACEPTACION DE ENTRADAS 

1170 IF INKEY$<>"" THEN 1170 

1180 A$=INKEYS 

1190 IF A$<"A" OR A$>"E" THEN 1180 
1200 PRINT :PRINT TAB(12);"DE ACUERDO 
5"3As 

1210 RETURN 

1220 REM H3d36d6 1636 dE dE IEIE DERE HE IE IE DE IE IE IE HE 

1230 REM RETARDO // PREGUNTA 

1240 FOR J=1 TO 1000:NEXT J 

1250 CLS:CLS 

1260 PRINT:PRINT 

1270 PRINT " CUAL DE LAS SIGUIENTES A 

FIRMACIONES ESTA MAS CERCA DE LA VERD 

AD ? ( SELECCIONA UNA )" 

1280 PRINT 

1290 FOR J=1 TO 400:NEXT J 

1300 RETURN 


Oo Bv! He, 20 


O 


Os “Ue ¿Du 0 


Nota.—El conocimiento de MEDICI proviene de haber realizado una gran cantidad de 
aproximaciones sucesivas utilizando la información de: Social Readjustment Rating Scale, Metro- 
politan Life Insurance Company, Dr. Thomas Holmes. Life Plan for your Health, Addison-Wesley, 
Reading MA., 1978, Dr. Donald Vickey. New Age Training for Fitness and Health, Grove House, 
Inc., San Francisco, CA., 1979, Dyveke Spino. Teniendo en cuenta que yo no soy un médico, que 
he realizado muchas aproximaciones toscas pero eficaces a la hora de trabajar con el programa y 
la gran cantidad de veces que lo he ejecutado hasta conseguir coincidencias y aproximaciones con 
los resultados, sus salidas deben ser entendidas dentro del contexto informativo en el que nos 
estamos moviendo. Sin embargo, no estarán totalmente alejadas de la realidad y pueden servir 
para demostrar lo que un sistema experto puede hacer en el campo del diagnóstico. 
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Desarrollo de 
su propio 
sistema experto 


A pesar de que los programas del tipo de MECANICO DE AUTOMOVI- 
LES y MEDICI son interesantes y demuestran con claridad cómo funcionan 
muchos de los sistemas expertos actualmente utilizados en el mundo, adolecen 
de dos grandes desventajas. La primera es que sólo codifican el saber en algún 
tema específico, es decir, tienen un dominio acotado. La segunda desventaja es 
que, antes de que el programa pueda escribirse, alguien tiene que poseer 
realmente el saber y conocer las respuestas, a fin de construir la base de 
conocimientos. 

Si usted ya sabe cómo comprobar las pequeñas averías de su coche, proba- 
blemente no encontrará interesante el conectar su ordenador para descubrir el 
estado de sus bujías. 

No obstante, como ya mencioné antes, muchos sistemas expertos del “mun- 
do real” solamente se desarrollaron después de que se hubiera extraído el saber 
de un experto humano poniéndolo en una especie de estructura sistemática, por 
un “ingeniero del conocimiento”. El ingeniero intenta descubrir la heurística 
mediante la cual el experto humano resuelve un problema. (La heurística es un 
camino hacia un objetivo que ha sido resuelto por la experiencia, en vez de 
mediante cálculos; es un trabajo empírico. No se garantiza que un camino de 
este tipo obtenga un resultado seguro, aunque la experiencia ha demostrado 
que en la mayoría de los casos es muy probable el conseguir acercarse a la 
consecución de un objetivo particular. Los programas de ajedrez juegan, en 
gran parte, de forma heurística. Un enfoque “algorítmico”, en contraste con uno 
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heurístico, es aquel en el que se aplica una técnica o procedimiento que produce 
inevitablemente un resultado particular. Su ordenador utiliza algoritmos resi- 
dentes en su interior para cosas como la adición de números, etc.) 

El saber organizado procedente de un experto humano se preserva en el 
interior de un programa, de modo que pueda ser grabado. Pensemos en lo 
interesante y valioso que sería si pudiéramos crear un programa que estuviera 
capacitado para deducir un conjunto de reglas, por sí mismo, partiendo simple- 
mente de los datos en bruto. Esto sería un gran logro, y aún lo sería mucho 
más si pudiéramos escribir un programa que hiciera lo anterior en un campo en 
el que incluso los expertos humanos carecieran de reglas precisas. 

Si esto fuera posible —hacer un programa que pudiera crear sus propias 
reglas partiendo de datos en bruto, y utilizarlos para obtener resultados satis- 
factorios en campos en los que los humanos no pudieran—, sería fenómeno 
conseguir que el programa pudiera explicar la utilización de la esencia de las 
reglas que ha desarrollado, de forma que pudiéramos aplicarlas nosotros mis- 
mos. Sería fenómeno, ya que en este caso, además de ser un sirviente, el sistema 
experto se convertiría entonces en un ayudante para la investigación y en un 
instructor. 

En esta sección del libro vamos a describir un programa con estas caracte- 
rísticas. Aunque puede que los estadísticos se asusten un poco de la manera 
poco ortodoxa en la que el programa manipula a veces los números, la prueba 
de la validez de un sistema experto está en sus resultados. Si es capaz de 
convertirse en un experto en casi cualquier cosa, incluso en campos en los que 
los seres humanos son incapaces de crear de manera heurística fiable, realmente 
no importa demasiado lo que pase con los números. 


Encuentro con FUZZY RITA 


Nuestro sistema tiene otra característica. Muchas de las decisiones que 
acometen los expertos del mundo real no tienen resultados del tipo blanco- 
negro. Aunque la respuesta a la pregunta “¿Es el número A mayor que el 
número B?” puede tener sólo una respuesta, una pregunta como “¿Es buena 
para usted la vitamina X?” nos traslada rápidamente al mundo del “depende”, 
“la vitamina X es a menudo buena para los niños recién nacidos, excepto 
cuando tienen sangre del tipo ES; si sus madres practican karate el valor X 
puede variar para tales niños”. Esta “regla empírica” incluye a menudo buena, 
excepto cuando y puede variar; conceptos bastante vagos y confusos. 

Como habrá usted adivinado, FUZZY RITA está familiarizada con un 
mundo en el que la causa y el efecto pueden no estar siempre relacionados de 
forma directa. (El nombre Rita viene de la famosa comedia del London West 
End, Educating Rita. Tal como indica la subrutina de la línea 970, nuestro 
programa puede ser educado. El adjetivo Fuzzy (difuso) no sólo es un nombre 
bonito, sino que hace referencia a la naturaleza del razonamiento que este 
programa puede desarrollar. No obstante, también funcionará bien en un mun- 
do blanco y negro de respuestas si/no.) 
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Los componentes de un sistema experto 


Antes de que procedamos con el desarrollo de nuestro sistema, veremos otra 
vez lo que discutimos antes al mirar las partes principales de los sistemas 
expertos en general. La mayor parte de los programas disponibles en el comer- 
cio tienen dos componentes principales: un bloque de deducción y una base de 
conocimientos. El primero de ellos es el mecanismo mediante el cual el sistema 
experto alcanza sus conclusiones. La base de conocimientos, obviamente, son 
los datos estrictos que el sistema manipula con el fin de alcanzar tales conclu- 
siones. 

El mantener las dos partes del sistema separadas tiene una gran ventaja. Si 
el mecanismo de inferencia es un dispositivo de propósito general, debería poder 
trabajar con bases de conocimientos de varios dominios, “pensando” en Cual- 
quier campo determinado, por la naturaleza de la base dada. 

Vimos esto anteriormente al hablar de MYCIN, el potente sistema de 
Stanford para diagnosis de enfermedades infecciosas. Al despojarlo de su base 
de conocimientos, se convirtió en el bloque de deducción EMYCIN (de Essen- 
tial MYCIN). La adición de nuevas bases de conocimientos transformó al 
“doctor” primero en un MECANICO DE AUTOMOVILES (con la ayuda de 
un Pontiac Service Manual de 1975), después en un consejero de análisis estruc- 
tural SACON, posteriormente en un especialista médico en el campo de los 
problemas sanguíneos (CLOT), y también en sistemas con nombres tan intri- 
gantes como LITHO, HEADMED y BLUEBOX. 

FUZZY RITA no es de la misma familia que MYCIN y sus descendientes. 
En vez de haber tenido que suministrarle un montón de reglas, FUZZY RITA 
desarrolla las suyas propias, modificándolas cuando es necesario si sus conclu- 
siones son equivocadas. Resulta fascinante observar cómo se va construyendo 
una regla base; FUZZY RITA nos permite la posibilidad de observar el estado 
actual de las reglas después de haber tomado cada decisión. 


Un sistema de uso general 


FUZZY RITA fue creada especificamente para ser un sistema general, capa- 
citado para trabajar con los datos de casi cualquier problema. Esto implica que 
no siempre es tan inteligente como podría. Así, puede que resulte a veces un 
poco prolija solicitando información antes de alcanzar una conclusión (aunque 
tiene la habilidad, cuando hay más de dos conclusiones posibles, de determinar 
que ciertas preguntas no pueden afectar al resultado, y, en tales casos, simple- 
mente se las salta). 

Por tanto, si desea utilizar RITA en un campo específico, por un largo 
período de tiempo, es conveniente “pellizcarlo” un poco, una vez que lo tenga 
establecido y en funcionamiento, con el fin de mejorar su rendimiento. La 
valoración que da el sistema a las coincidencias totales entre las respuestas del 
usuario y la información de su base de conocimientos adquirida, y la atención 
que presta a aquellas respuestas que no son totalmente correctas, pueden 
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parecer insignificantes en orden a conseguir los mejores resultados. Todos los 
sistemas expertos se comprueban introduciéndoles ejemplos conocidos, y com- 
parando las respuestas del sistema con los resultados conocidos. Las respuestas 
equivocadas indican que la regla necesita ser modificada, lo cual no es ningún 
problema. 

A pesar de esto, veremos que RITA trabaja sorprendentemente bien en la 
mayor parte de las situaciones. Los límites que determinan cómo decide RITA 
cuáles son las conclusiones “más probables” y las “siguientes más probables” los 
calculé sencillamente mediante el método de prueba y error, sometiendo al 
sistema a una extensa variedad de ejemplos, cambiando los valores a medida 
que avanzaba. 


¿Es un gato o un perro? 


Esta es una de las preguntas que han atormentado a los sabios desde los 
comienzos de la historia escrita. 

Ahora, con la ayuda de FUZZY RITA, podremos determinarlo de una vez 
por todas. 

Siguiendo a RITA en acción a través de este ejemplo artificial, nos resul- 
tará fácil comprender cómo trabaja y cómo puede utilizarse para nuestros 
propios problemas. El problema del GATO/PERRO es uno en el que la 
respuesta es “discreta”; o es gato o es perro. Los diagnósticos médicos frecuen- 
temente pueden ser no discretos: La evidencia indica una infección de las vías 
respiratorias superiores, o tal vez una forma benigna de sarampión. FUZZY RITA 
puede funcionar con resultados discretos, y no necesita que se le diga a qué 
campo pertenece el problema. Las respuestas se dan siempre de la forma EL 
RESULTADO MAS PROBABLE ES... Si los datos suministrados a RITA, en 
conjunción con la regla base que ha creado, indican que hay uno o dos 
resultados casi igualmente probables, pueden dar una o dos conclusiones adicio- 
nales precedidas por las palabras EL SIGUIENTE MAS PROBABLE ES... 
Una vez que RITA ha aprendido la diferencia entre un gato y un perro, el 
usuario obtiene en general una única conclusión. 

El programa comienza preguntándole si desea ver la base de conocimientos 
actualizada después de cada ejecución. Si es así, pulse cualquier tecla antes de 
RETURN. 


PULSA UNA TECLA SEGUIDA DE < RETURN > 


PAS SI QUIERES VER LOS CONOCIMIENTOS 
EN ADQUIRIDOS DESPUES DE CADA RONDA. 
_—! EN CASO CONTRARIO PULSA UNICAMENTE 


< RETURN > . 


A continuación se introducen las “opciones de salida” (esto es, las posibles 
conclusiones que el sistema puede alcanzar), pulsando RETURN cuando haya 
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terminado de introducirlas. FUZZY RITA puede trabajar, tal y como se ha 
dicho, hasta con 50 salidas distintas: 


INTRODUCE LA RESPUESTA NUMERO 1 
FULSA < RETURN > FARA TERMINAR 

'? PERRO 

INTRODUCE LA RESPUESTA NUMERO 2 
PULSA < RETURN > FARA TERMINAR 

? GATO 

INTRODUCE LA RESPUESTA NUMERO 3 
PULSA < RETURN > PARA TERMINAR 


e 


Job 


Una vez que haya terminado de introducir las opciones, RITA las escribe en 
la pantalla, y le pide que introduzca las “preguntas” que el sistema formulará 
posteriormente. RITA puede trabajar con un máximo de 50 preguntas. 


PERRO 
GATO 
INTRODUCE LA PREGUNTA NUMERO 1 
PULSA < RETURN > PARA TERMINAR 
? COME RATONES Y MAULLA 
INTRODUCE LA PREGUNTA NUMERO 2 
PULSA < RETURN > PARA TERMINAR 
? ANIMAL 
INTRODUCE LA PREGUNTA NUMERO 3 
PULSA < RETURN > PARA TERMINAR 
? ASUSTA A LOS LADRONES 
INTRODUCE LA PREGUNTA NUMERO 4 
PULSA < RETURN > PARA TERMINAR 


Pulse otra vez RETURN para indicar que ha terminado de introducir las 
preguntas. Hecho esto, RITA le dará los objetos sobre los que puede decidir: 


rn 


ESTOS SON LOS TEMAS ENTRE LOS QUE 
PUEDO DISTINGUIR : 


ú 


o 
— 


> PERRO 


e > GATO 
O 


PIENSA UNO, DESPUES PULSA < RETURN > 


Entonces se presentan las preguntas una a una, y se le pide al usuario que 
responda a ellas mediante un número comprendido entre 1 (lo que se pregunta 
es 100 por 100 cierto) y O (lo que se pregunta es 100 por 100 falso). Este le 
faculta a RITA para trabajar con datos discretos (del tipo GATO/PERRO, 
NEGRO/BLANCO) y con datos que cubren un rango de valores (como el 
peso, O la presión sanguínea de un paciente). 

En el caso de datos que varían ampliamente (como el peso), es fácil concebir 
un sistema que nos permita representar el menor de ellos como el O y el mayor 
como el 1. Esto lo veremos después en un ejemplo sobre previsión climatológi- 
ca, donde simplemente se dividen las temperaturas máximas y mínimas por 10, 
lo que implica que la gran mayoría de ellas se pueden introducir simplemente 
mediante un número tal como 0.6 (para 6 grados). Cualquier resultado superior 
a 1 se deja simplemente como 1. Las horas de sol se tratan de idéntica manera, 
siendo introducidas 7 horas de sol como 0.7, etc. Realmente no importa lo que 
sean los números, mientras se cree una regla que haga que el rango quede entre 
1 y O y nos atengamos a ella al introducir tales números. Podemos tener 
diferentes reglas para distintas categorías de datos dentro de un mismo progra- 
ma; a RITA no le afecta. 

Al responder a las preguntas, podemos hacer también que el número que 
introducimos represente conceptos tales como “muy”, “siempre” y “sin impor- 
tancia”. Por ejemplo, en preguntas como, ¿COMO ESTA DE ROJA LA CARA 
DEL PACIENTE? (0.9 significaría “muy”, y 0.1 indicaría “poco”); ¿TIENE 
PROBLEMAS PARA ARRANCAR SU COCHE? (introduciríamos, por ejem- 
plo, 0.9 para “siempre”, y 0.4 para “algunas veces”); y ¿QUE IMPORTANCIA 
TIENE EL TIPO DE INTERES PARA ESTE SOLICITANTE DEL PRES- 
TAMO? (1 para “es el aspecto más importante”, pasando por 0.7 para “bastan- 
te importante”, y 0.1 para “sin importancia”). 

Los números introducidos no tienen por qué ser exactos. Está claro que es 
dificil conseguir una equivalencia numérica consistente para conceptos tales 
como “casi nunca”. Con RITA, basta casi siempre con aproximaciones, con tal 
que seamos razonablemente consistentes con una categoría particular de datos. 

Como podemos ver, esto significa que RITA es capaz de habérselas con casi 
cualquier problema que le echemos, tanto si los datos son del tipo SI/NO, en 
una escala controlada (como la temperatura), o si lo son del tipo que admite 
interpretaciones. Nuestro ejemplo GATO/PERRO es casi totalmente, al menos 
para nuestros propósitos, una situación SI/NO. 

Primero enseñamos a RITA algunas cosas sobre perros: 


= 
67] PULSA UNO DE ESTOS NUMEROS : 
A, 1 (CIERTO) O (FALSO) $ (FIN) 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


o 
a] 
z 
m 
2 
D 
— 
O 
Z 
m 
0 
< 
z 
D 
E 
E 
E 
D 
2 
|] 
¡0 


ANIMAL ”?1 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


1 
A, 


ASUSTA A LOS LADRONES “1 


1) 


EL RESULTADO MAS PROBABLE ES PERRO 


ES CORRECTO EL RESULTADO MAS 
PROBABLE — ? (S,NÑN) 


1 
LY 


Por suerte, el sistema indica PERRO, la respuesta correcta (en realidad, no 
ha sido suerte, sino que sencillamente, cuando no tiene ninguna información 
sobre la que basar su decisión, elige la primera opción de salida). 

RITA actualiza las reglas y nos informa de sus hallazgos: 


z 
3 
L 
¡ESE 


COME RATONES Y MAULLA O 
ANIMAL 2 
ASUSTA A LOS LADRONES 4 


COME RATONES Y MAULLA O 
ANIMAL O 
ASUSTA A LOS LADRONES 0 


E 


PULSA < RETURN > PARA CONTINUAR EL 
ADIESTRAMIENTO , 

O CUALQUIER TECLA SEGUIDA DE <RETURN> 
PARA HACER USO DE RITA 


L 


Ha asignado un valor de O a la pregunta COME ARROZ Y MAULLA, 2 a 
ANIMAL y 4 a LADRA FEROZMENTE A LOS LADRONES. Esto no 
significa que por alguna razón piense que LADRA FEROZMENTE es más 
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Y 


importante que la categoría ANIMAL, ya que no dispone de información sobre 
la que tomar tal decisión. RITA multiplica el valor que se da a cada respuesta 
por un número que se duplica con cada pregunta; así, multiplica la respuesta a 
la primera pregunta por 1, la segunda por 2, la tercera por 4, la cuarta por 8... y 
así sucesivamente. Como vemos, hasta aquí, la regla base para GATO está 
todavía completamente llena de ceros. Esto es debido a que RITA no se ha 
encontrado todavía con un gato, y no sabe nada de ellos. 
Presentemos un gato al programa, y veamos lo que hace con él: 


ESTOS SON LOS TEMAS ENTRE LOS QUE 
PUEDO DISTINGUIR : 


ES 
LJ) 


> PERRO 
2> GATO 


PIENSA UNO, DESPUES PULSA < RETURN > 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


Ñ 


COME RATONES Y MAULLA 71 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


ER 


ANIMAL 1 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $% (FIN) 


1) 


ASUSTA A LOS LADRONES 70 
EL RESULTADO MAS PROBABLE ES PERRO 


ES CORRECTO EL RESULTADO MAS 
PROBABLE  ? (S,N) 


1 


El sistema sugiere PERRO, ya que es lo que mejor encaja con los datos que 
él tiene (la pregunta ANIMAL obtuvo la misma respuesta). Una vez que se le 
dice que PERRO es incorrecta, RITA hace comprobaciones para ver cuántas 
salidas alternativas tiene. Si solamente tiene dos, sabe que la respuesta que no 
dio es la correcta para los datos presentados durante la ejecución, y ajusta sus 
reglas conforme a ello: 


2 


El 


COME RATONES Y MAULLA O 
ANIMAL 2 
ASUSTA A LOS LADRONES 4 


ba 


COME RATONES Y MAULLA 1 
ANIMAL 2 
ASUSTA A LOS LADRONES O 


y 


PULSA < RETURN > PARA CONTINUAR EL 
ADIESTRAMIENTO . 

O CUALQUIER TECLA SEGUIDA DE <RETURN> 
PARA HACER USO DE RITA 


L) 


Podemos ver cómo RITA ha creado ahora la regla según la cual una 
respuesta afirmativa a COME RATONES y MAULLA y ANIMAL equivale a 
GATO, mientras que respuestas afirmativas a ANIMAL y a ASUSTA A LOS 
LADRONES equivalen a PERRO. A partir de ahora, en este caso, el más simple 
posible (dos salidas, preguntas S/N), RITA no volverá a fallar. Ha aprendido 
por sí misma a distinguir entre dos animales. 


No tan sencillo 


La situación no es tan fácil cuando hay más de dos salidas, pudiendo RITA 
necesitar varios funcionamientos de prueba antes de que esté segura de saber lo 
que ocurre. Incluso entonces preguntará si el resultado más probable que ha 
dado es correcto (y si le decimos que no, preguntará por el segundo más 
probable) y modificará sus reglas ligeramente si comete un error. No obstante, 
RITA dispone de un recurso extra que entra en juego cuando hay más de dos 
salidas. Puede decidir que determinadas preguntas son irrelevantes y no le 
ayudan a alcanzar sus conclusiones. (En el ejemplo GATO/PERRO, la pregunta 
ANIMAL era irrelevante; no daba a RITA ninguna información adicional para 
decidir qué clase de criatura era.) 

Con la ayuda de un libro de texto elemental de química (White, 1979), decidí 
enseñar a RITA a distinguir entre magnesio, hierro y plomo. Esto, de hecho, no 
es difícil incluso para inexpertos como yo, pero es muy distinto de lo que tuve 
que hacer para indicarle la diferencia entre un gato y un perro, tema en el que 
soy un experto al 100 por 100. 
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Comenzaremos dando a RITA las opciones de salida: 


PULSA UNA TECLA SEGUIDA DE < RETURN > 
SI QUIERES VER LOS CONOCIMIENTOS 
ADQUIRIDOS DESPUES DE CADA RONDA. 
EN CASO CONTRARIO PULSA UNICAMENTE 
X< RETURN >. 


ha 


INTRODUCE LA RESPUESTA NUMERO 
PULSA < RETURN > PARA TERMINAR 
2? MAGNESIO 

INTRODUCE LA RESPUESTA NUMERO 2 
FPULSA < RETURN > PARA TERMINAR 

? HIERRO 

INTRODUCE LA RESPUESTA NUMERO 3 
PULSA < RETURN > PARA TERMINAR 

? PLOMO 

INTRODUCE LA RESPUESTA NUMERO 4 


PULSA < RETURN > FARA TERMINAR 
E 


A continuación introducimos las preguntas discriminatorias: 


INTRODUCE LA PREGUNTA NUMERO — 1 
PULSA < RETURN 2 PARA TERMINAR 
2? SU DENSIDAD ES MENOR QUE 8 GM/CM?3 


INTRODUCE LA PREGUNTA MUMERO 2 
PULSA £ RETURN > PARA TERMINAR 
? ES UN METAL 


INTRODUCE LA PREGUNTA NUMERO 3 
PULSA < RETURN > PARA TERMINAR 
? ES VENENOSO 


INTRODUCE LA PREGUNTA NUMERO 4 
PULSA < RETURN > PARA TERMINAR 
“? CONDUCE LA ELECTRICIDAD 


INTRODUCE LA PREGUNTA NUMERO 5 
PULSA < RETURN > PARA TERMINAR 
? BRILLA CUANDO SE PULE 


o 


6 


INTRODUCE LA PREGUNTA NUMERO 4 
PULSA £ RETURN > PARA TERMINAR 
2 SE DESLUSTRA FACILMENTE 
INTRODUCE LA PREGUNTA NUMERO 7 
FULSA < RETURN > FARA TERMINAR 


RITA presenta un informe de la situación inicial y el entrenamiento comien- 
za con el plomo como nuestro metal escogido: 


ESTOS SON LOS TEMAS ENTRE LOS QUE 
PUEDO DISTINGUIR : 


1) 


> MAGNESIO 

> HIERRO 

2 PLOMO 
E A A A A A =] 
PIENSA UNO, DESPUES FULSA <£ RETURN > e 
e e e a a a a A E 


FPULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


a 


SU DENSIDAD ES MENOR QUE 8 GM/CM*3 
O 

PULSA UNO DE ESTOS NUMEROS : 

1 (CIERTO) O (FALSO) $ (FIN) 


ll 


ES UN METAL ”? 1 


FPULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


6 


ES VENENOSO 2 1 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


4 


CONDUCE LA ELECTRICIDAD ? 1 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


E 


BRILLA CUANDO SE PULE ? O 


o 
Ú 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


SE DESLUSTRA FACILMENTE ? 1 


EL RESULTADO MAS FROBABLE ES MAGNESIO 
EL SIGUIENTE MAS PROBABLE ES FLOMO 


ES CORRECTO EL RESULTADO MAS 
FROBABLE  ? (S,N)?2N 
ES CORRECTA MI SEGUNDA ELECCION ? 
LS: NI SS 


Continuamos entrenándola unas cuantas veces más hasta que la base de 
conocimientos queda así: 


a 


MAGNESIO 


SU DENSIDAD ES MENOR QUE 8 GM/CM*"3 O 
ES UN METAL O 

ES VENENOSO 0 

CONDUCE LA ELECTRICIDAD Q 

BRILLA CUANDO SE PULE O 

SE DESLUSTRA FACILMENTE 0 


HIERRO 


SU DENSIDAD ES MENOR QUE 8 GM/CM?3 O 
ES UN METAL 0 

ES VENENOSO O 

CONDUCE LA ELECTRICIDAD O 

BRILLA CUANDO SE PULE O 

SE DESLUSTRA FACILMENTE O 


SU DENSIDAD ES MENOR QUE 8 GM/CM“3 0 
ES UN METAL 2 


ES VENENOSO 4 

CONDUCE LA ELECTRICIDAD 8 ES 
BRILLA CUANDO SE PULE OQ EY 
SE DESLUSTRA FACILMENTE 32 


r 


En esta ocasión, antes de pulsar la tecla RETURN pulsamos cualquier otra 
para indicar que el entrenamiento ha finalizado y que ya es hora de que RITA 
empiece a trabajar: 


FPULSA <£< RETURN > PARA CONTINUAR EL 
ADIESTRAMIENTO . 

O CUALQUIER TECLA SEGUIDA DE <¿RETURN> 
PARA HACER USO DE RITA 


) 


Un resultado práctico del cambio del modo de entrenamiento al de trabajo, 
aparte de un ligero cambio en la “conversación”, es que ahora RITA decide qué 
preguntas hará, en vez de preguntarlas todas automáticamente: 


ESTOS SON LOS TEMAS ENTRE LOS QUE 
PUEDO DISTINGUIR : 


Ñ 
Eo 


> MAGNESIO 

> HIERRO 

> PLOMO 
ESTOY FREPARADA PARA DEDUCIR CUAL 
TIENES EN MENTE. 


E 
LJ) 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


0 


ES UN METAL 2 1 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


El 
¡E 


ES VENENOSO ? O 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) 4 (FIN) 


a 


CONDUCE LA ELECTRICIDAD ? O 


0 


oO 
[1] 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) + (FIN) 


A 


SE DESLUSTRA FACILMENTE *? 1 


L) 


EL RESULTADO MAS PROBABLE ES MAGNESIO 


ES CORRECTO EL RESULTADO MAS 
PROBABLE — ? (S,N)?S 


A partir de ahora, solamente será actualizada la base de conocimientos si 
decimos a RITA que una de sus conclusiones está equivocada. 


PULSA < RETURN > PARA CONTINUAR EL 
ADIESTRAMIENTO . 

O CUALQUIER TECLA SEGUIDA DE < RETURN > 
PARA HACER USO DE RITA 

ESTOS SON LOS TEMAS ENTRE LOS QUE 

PUEDO DISTINGUIR : 


> MAGNESIO 

2 HIERRO 

> PLOMO 
ESTOY PREPARADA PARA DEDUCIR CUAL 
TIENES EN MENTE. 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


a 


ES UN METAL ? O 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


Ñ 


ES VENENOSO 2 i 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $ (FIN) 


CONDUCE LA ELECTRICIDAD ? O 


2 


<Ú 
Oo 


PULSA UNO DE ESTOS NUMEROS : 
1 (CIERTO) O (FALSO) $% (FIN) 


SE DESLUSTRA FACILMENTE ? 1 
EL RESULTADO MAS PROBABLE ES MAGNESIO 
EL SIGUIENTE MAS PROBABLE ES PLOMO 


ES CORRECTO EL RESULTADO MAS 
PROBABLE 2? (S.N)2N 
ES CORRECTA MI SEGUNDA ELECCION 2? 
(S,N)?2N 
1 — MAGNESIO 
2 — HIERRO 
3 — PLOMO 


CUAL ES LA SOLUCION CORRECTA ? 2 2 
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Razonamiento 
difuso 


Mientras que la codificación de certidumbres en un programa de ordenador 
es razonablemente sencilla (SI esto es verdad ENTONCES esto es siempre 
verdad), la expresión de grados de certeza no es tan fácil. La lógica difusa, 
término introducido por L. A. Zadeh (1979), trata de la deducción de conclusio- 
nes a partir de premisas que carecen de precisión. 

Las conclusiones sacadas se expresan en términos de posibilidades en vez de 
probabilidades que se utilizan cuando el grado de certidumbre de una premisa 
puede expresarse con exactitud en forma matemática. La mayoría de los meca- 
nismos de razonamiento (tales como SI A ES SIEMPRE B, Y C ES A, 
ENTONCES C ES B) son incapaces de enfrentarse con imprecisiones y posibili- 
dades. 

La imprecisión acompaña a la mayoría de las acciones humanas, desde la 
comprensión del habla hasta la decisión del movimiento a realizar en una 
jugada de ajedrez. Tal como ya hemos visto, los ordenadores no se las arreglan 
bien con la imprecisión. Un bit o es 1 o es O (nunca “posiblemente 1”). La 
codificación de mecanismos que funcionen con situaciones confusas requiere 
una técnica particular de programación. 

En lenguajes como PROLOG y HASTE (véanse los capítulos 11 a 13), el 
grado de certeza se codifica directamente. Al utilizar tales lenguajes declarativos 
podemos utilizar términos como en la mayoría de los casos, a menudo, usualmen- 
te, a veces, casi nunca, etc. Lo que es más, podemos unir y comparar los 
términos, de forma que podemos decir cosas como Si es muy posible que A esté 
presente, entonces B casi nunca está presente. 
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En los lenguajes humanos (o sea, naturales), hay una serie de términos que 
utilizamos en nuestras vidas cotidianas que dan grados de posibilidad a térmi- 
nos descriptivos. Lo siguiente aclarará lo que pretendo decir. Piense en un 
adjetivo como rojo, largo o pesado. Cuando describimos un objeto como rojo, 
largo o pesado, a menudo precedemos al objetivo con una palabra o frase que 
de alguna manera lo modifica, dándole un significado más exacto. Tales pala- 
bras o frases como muy, solamente, no especialmente y en absoluto, dan al 
adjetivo un grado de probabilidad. En tales casos, podemos decir que la 
“variable lingúística” se compone de dos partes, un término primario (como, por 
ejemplo, “rojo”) y un modificador. 

Aunque es claramente imposible el dar una estimación probabilística exacta 
a cada utilización de los modificadores particulares (como, por ejemplo, 0.95 
para muy y 0.2 para no especialmente), resulta posible, en la práctica, asignarles 
valores basados en nuestra comprensión del grado de “fuerza” que un particular 
modificador confiere a un adjetivo, y —lo que es más importante — en nuestro 
conocimiento del objeto o de lo que sea que se esté describiendo y en el 
significado de tal adjetivo. 


De vuelta al mundo real 


Los ejemplos GATO/PERRO Y MAGNESIO/HIERRO/PLOMO tratados 
con RITA se idearon para exigir únicamente respuestas SI/NO. Ahora ha 
llegado el momento de ver si el programa puede funcionar también con datos 
menos definidos, y en una situación en la que no es fácil (o es imposible) hallar 
cuáles son las reglas. Una situación de este tipo es la predicción del tiempo. 
Aunque podemos mirar al cielo por la mañana, y decir algo profundo como 
“Parece que va a llover” o “Esperemos que aclare más tarde”, probablemente 
disponemos de poca información objetiva con la que predecir cómo va a ser el 
tiempo el resto del día, o de mañana. 

Vamos a observar los modelos meteorológicos de dos ciudades muy distin- 
tas, Londres y Melbourne. Miraremos en primer lugar y con bastante brevedad 
el modelo de Londres, utilizando para ello cuatro variables (horas de sol, 
temperaturas máximas y mínimas, y milímetros de lluvia). A pesar de utilizar 
tan sólo estas pocas variables, descubriremos que RITA se las arregla para 
funcionar extraordinariamente bien. El examen de la situación de RITA en este 
campo nos facilitará la comprensión del funcionamiento del programa cuando 
examinemos sus segmentos más importantes. 

Una vez que hayamos observado el ejemplo de Londres, y nos abramos 
camino por el programa, le suministraremos un conjunto de sucesos meteoroló- 
gicos más precisos relativos a Melbourne, y veremos si su rendimiento mejora 
conforme la información que se le da es más exacta. 
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Londres 


Le dije a RITA que quería que eligiera una de las tres predicciones para el 
tiempo de un día, en base a la información del día anterior. Las predicciones 


posibles eran: 


e Mañana lloverá bajo 1 mm. 
e Mañana lloverá sobre 4 mm. 
e Mañana lloverá entre 1 y 4 mm. 


Las preguntas discriminatorias eran: 


e Temperatura mínima (dividida por 10, para que tuviera un valor com- 
prendido entre cero y uno, con cualquier resultado superior a 1, reduci- 


do a 1). 


e Temperatura máxima (tratada de la misma manera que la temperatura 


mínima). 


e Lluvia (tratada igual que las dos magnitudes anteriores). 


e Horas de sol (divididas por 10. El resultado, que en este ejercicio nunca 


supere la unidad, se redondea a su primera cifra decimal). 


Introducidos los datos de una semana, en la que RITA se encontró con días 
que correspondían a las tres posibles salidas, la regla base quedaba así: 


e € PP € [€ [o 0 5 A ce 


PRONOSTICO DE LLUVIA BAJO 1 MM 


TEMPERATURA MAXIMA (C.— /10) .4 
TEMPERATURA MINIMA (E /10) .2 
LLUVIA (MM /10) .5 

HORAS DE SOL ( /10) 3.8 


PRONOSTICO DE LLUVIA SOBRE 4 MM 


TEMPERATURA MAXIMA (C  /10) 1.8 
TEMPERATURA MINIMA (C— /10) .3 
LLUVIA (MM /10) 1.4 

HORAS DE SOL (C /10) 33.4 


PRONOSTICO DE LLUVIA ENTRE 1 — 4 MM 


>] 
al 


: TEMPERATURA MAXIMA (C  /10) 2 
nn TEMPERATURA MINIMA (C  /10) .8 
el LLUVIA (MM /10) 3.2 
HORAS DE SOL ( /10) .8 


== PULSA < RETURN > PARA CONTINUAR EL 

E) ADIESTRAMIENTO. 

UT) 0 CUALQUIER OTRA TECLA SEGUIDA DE 
¿ RETURN > PARA UTILIZAR A RITA 


Resulta muy interesante analizar esta regla base e intentar calcular qué 
normas ha concebido RITA, y ver la comparación de éstas con las típicas y 
toscas reglas empíricas que utilizamos al predecir el tiempo. 

Para predecir una caída de lluvia inferior a un 1 mm el programa busca un 
valor de 0.4 para la temperatura mínima (casi lo mismo, 0.3, para lluvias 
superiores a 4 mm), mientras que un valor de 0.8 se señala como algo valioso 
cuando se intenta predecir lluvias entre 1 y 4 mm. Esto nos indica que RITA 
cree, después de tan sólo examinar los datos meteorológicos de una semana, 
que una alta (relativamente hablando) temperatura mínima conduce probable- 
mente a una caida media de lluvia (o sea, entre 1 y 4mm) al día siguiente, 
mientras que pequeños valores indican o bien lluvia escasa (o nula), o bien 
mucha lluvia (más de 4 mm). Esto, al menos para mí, es sorprendente. 

No hay grandes variaciones en los valores asignados para la temperatura 
máxima (1.9, 1.8 y 2), por lo que quizá, para el mes en cuestión, esta magnitud 
no es demasiado importante. En contraste, la caída de lluvia durante el día en 
curso se considera como una variable importante. Una lluvia escasa (un valor 
de 0.5) sugiere un poco de lluvia al día siguiente, lo cual está de acuerdo con 
nuestra creencia sobre el tiempo, según la cual después de unos días secos 
vienen otros húmedos y así sucesivamente, y no que la meteorología de cada 
día sea algo independiente del día precedente. No obstante, en vez de afirmar 
que “fuertes lluvias hoy implican fuertes lluvias mañana”, RITA ha llegado a la 
conclusión de que un alto valor para la lluvia caída hoy (3.2) indica una lluvia 
media (1 a 4 mm) al día siguiente, y un valor moderado para lo llovido hoy (1.4) 
indica una fuerte lluvia al día siguiente. Después de reflexionar, esto parece 
razonable. Si la mayor parte de la lluvia cae hoy, es de suponer que quede 
menos por caer para mañana. 

Finalmente nos fijaremos en las horas de sol y en lo que RITA hace con 
ellas. Las magnitudes muestran aquí una gran variación (aunque debemos tener 
presente que han sido multiplicadas por 16 antes de añadirse a la base de 
datos; lo importante es la variación dentro de una categoría particular y no el 
valor numérico puro). Para predecir un día con menos de 4 mm de lluvia, RITA 
busca mucho sol (en la regla base, hay un valor de 3.5), mientras que muy poco 
sol (0.8) indica más de 4 mm de lluvia y algo más (3.8) sugiere que el día siguiente 
será casi o completamente seco (menos de 1 mm). 

Llegados a este punto, la regla base de RITA parece contener lo siguiente: 
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e RITA predice para mañana un día completamente húmedo (más de 4 mm 
de lluvia) si hoy la temperatura mínima es baja, llueve moderadamente y 
hay bastante sol. 

e RITA predice para mañana un día seco (menos de 1 mm de lluvia) si hoy 
la temperatura mínima es baja (aunque ligeramente superior a la del caso 
anterior), llueve muy poco y —quizá sorprendentemente— hay muy po- 
quito sol. 

e RITA predice para mañana un día semihúmedo (1 a 4mm de lluvia), 
cuando hoy la temperatura mínima es alta, llueve mucho (comparado con 
los dos casos anteriores) y la cifra de horas de sol es muy pequeña. 


¿Qué tal lo hizo ? 


Aunque la interpretación de la regla base que RITA estableció en esta 
prueba es muy fácil (y extremadamente interesante), carece de valor, cualquiera 
que sea, si no faculta al sistema experto para predecir realmente el tiempo. Hice 
funcionar el programa durante diecinueve días más, anotando su primera pre- 
dicción, y la segunda si la daba (dará una segunda predicción y quizá una 
tercera, si los datos no conducen directamente a una conclusión en particular), 
o si la primera era o no correcta. Si no lo era, comprobaba la segunda. 

El resultado fue éste (después de diecinueve días): 


e Correctas (primera predicción solamente). ......o.ooooomoo..... 7 días 
e Segunda predicción correcta (si la primera fue errónea)........ 7 días 
e Correctas (primera O segunda).......«««oooooooommorm.rrr..r.s 14 días 
e Totalmente erróneas (primera y segunda) ......ooooccoccon.... 5 días 


Es un buen resultado, si tomamos en consideración la respuesta “más 
probable” y la “siguiente más probable”. Recordemos que no dimos a RITA 
ninguna regla. Simplemente introdujimos los datos, y dijimos si las predicciones 
hechas por el programa eran correctas o erróneas. RITA estableció las reglas, y 
a partir de muy pocos ejemplos se las arregló para hacer, en definitiva, los 
cálculos sobre el tiempo suficientes como para formular predicciones razonables. 
Resulta asombroso (al menos para mí) que, aunque el programa no “sabe” lo 
que hace, se las arregla para crear una regla que funciona, hasta cierto punto, 
en la “vida real”. 

¿Qué hubiera pasado si le hubiéramos dado más datos con los que seguir 
trabajando, o le hubiéramos pedido que sus predicciones sólo distinguieran 
entre días secos y días húmedos? ¿Habría funcionado RITA mejor? Intentare- 
mos responder a estas preguntas, a su debido tiempo, con los datos meteoroló- 
gicos de Melbourne. 

RITA continuó aprendiendo durante un período completo de veintiséis días 
para el cual se introdujeron los datos. Decidí volver a probar otra vez con los 
datos del período inicial para ver si ahora su rendimiento había mejorado. 
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El resultado de sus hallazgos sobre el mismo período inicial de diecinueve 
días fue el siguiente: 


e Correctas (primera predicción solamente)..... 9 días (aumenta en 2) 
e Segunda predicción correcta (si la primera fue 

CRLONCA Ad A E O A A 8 días (aumenta en 1) 
e Correctas (primera o segunda)............... 17 días (aumenta en 3) 
e Totalmente erróneas (primera y segunda).... 2 días (disminuye en 3) 


Esta mejora me alegró muchísimo. Indicaba que, si añadíamos más y más 
ejemplos (en vez de utilizar los mismos una y otra vez, aunque esto parezca 
tener cierto grado de mérito), RITA continuaría aprendiendo. Una forma de dar 
a RITA cantidad de ejercicios (mejor que la tarea extremadamente pesada de 
introducirle por el teclado cantidad y cantidad de datos) podría ser la de poner 
los resultados registrados (esto es, las cifras de caida de lluvia y todo eso) en 
una matriz, junto con la respuesta correcta, y dejar simplemente que RITA elija 
días aleatoriamente durante una hora o más, refinando así incesantemente sus 
constantes de predicción. 


Modificaciones 


Tal como hemos visto, RITA elabora un número que se almacena para cada 
pregunta discriminatoria de cada salida posible. Si el sistema da una respuesta 
equivocada, modifica los números que ha almacenado para esa opción. Multi- 
plica la cifra que guarda por cinco, le añade la nueva, divide la suma por seis y 
guarda el resultado. Esto asegura que un conjunto anómalo de información 
(como un gato que ladra ferozmente a los ladrones, o un día en el que ha caído 
100 veces la lluvia de uno normal) no destruye totalmente los resultados más 
usuales. (No obstante a RITA le cuesta muchísimo deshacerse de la influencia 
de un conjunto de datos anómalos introducidos desde el principio.) 

Probé con otras proporciones entre datos nuevos y datos viejos (como 
nueve veces el viejo, más el nuevo, dividido por diez; y el doble del viejo, más el 
nuevo, dividido por tres), pero esto implicaba que o bien el sistema aprendía 
con demasiada lentitud, o bien su base de datos fluctuaba violentamente en 
respuesta al último grupo de cifras con el que se enfrentaba. Lo mismo que el 
resto de RITA (y muchos otros sistemas expertos), el programa fue realizado 
según el método de prueba y error. Simplemente procedí según el principio 
“cámbialo si no va bien/déjalo si funciona”. 


Análisis de RITA 


Vamos ahora a recorrer el programa RITA con cierto detalle: esta práctica 
que no he seguido en ninguna otra parte de este libro, la hago en esta ocasión 
porque RITA es el programa más útil de esta obra y es el que, con más 
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probabilidad, querrá usted adaptar para crear su propio sistema experto. Tal y 
como ya hemos dicho, RITA es un sistema de propósito general. 

Anteriormente indiqué que tal vez se deseen modificar algunas de las cosas 
que hace el programa, cuando trabaja en campos específicos, para conseguir 
que RITA trabaje con mayor efectividad en este campo particular. Hágalo 
funcionar como si estuviera en su campo elegido, y entonces juzgue con él para 
conseguir tantas respuestas “correctas” como pueda, mientras la respuesta 
se conozca. De esta manera será mucho más probable que acierte cuando no se 
conozca la respuesta (resultado o salida) correcta. Después de todo, ésta es la 
única ocasión en la que los sistemas expertos se hacen realmente útiles, cuando 
se tienen los datos y se requiere que el programa tome alguna decisión en base 
a ellos. El programa comienza dimensionando una serie de matrices. 


1370 REM 446346 16 33 TE FE IE IE IE IE FE IET IE IE METETE TEE 
1380 REM  INICIALIZACION 
1390 CLS:KEYOFF 
1400 REM REDUCE LAS MATRICES DE LA 
SIGUIENTE LINEA DE ACUERDO A 
TUS NECESIDADES O POSIBILIDADES 
1410 DIM A$(50),B(50,50),C(50),D(50), 
E$ (50) ,F (50) ,E (50) 
1420 X$="" 
1430 PRINT "PULSA UNA TECLA SEGUIDA D 
E < RETURN > SI QUIERES "s 
1440 PRINT "VER LOS CONOCIMIENTOS" 
1450 PRINT "ADQUIRIDOS DESPUES DE CAD 
A RONDA. " 
1460 PRINT "EN CASO CONTRARIO PULSA U 
NICAMENTE < RETURN > .":PRINT 
1470 INPUT U$ 
1480 CLS 
1490 RETURN 





Los subíndices de estas matrices (los 50) son sobradamente superiores a lo 
que probablemente usted necesitará y ocupan bastante memoria (alrededor de 
12K en mi equipo, un IBM PC). La matriz A$ contiene los nombres de las 
salidas, y E$ los de las preguntas discriminatorias; por tanto, sólo puede 
reducirlas fácilmente si conoce de antemano cuántas salidas habrá y cuántas 
preguntas formulará. Puede cambiar el resto de los subíndices de modo que 
igualen el número de preguntas discriminatorias. Otra alternativa podría ser 
modificar el programa de modo que le pidiera al principio el número de salidas 
y de preguntas y después dimensionara las matrices conforme a ello. Esta parte 
del programa consigue también un valor para US$ (vacío, o no) que determina si 
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el programa visualizará o no el contenido actualizado de la base de datos, 
después de cada ejecución. 

A partir de aquí RITA sigue para aceptar los nombres de las posibles 
conclusiones que podrá alcanzar: 


REM OPCIONES DE SALIDA 
TT=0 
TT=TT+1 
GOSUB 1500 
PRINT "INTRODUCE LA RESPUESTA NU 
"5TT53" PULSA < RETURN > PARA TE 
RMINAR " 
1210 INPUT A$(TT) 
1220 IF A$(TT)="" OR TT=51 THEN TT=TT 
-1: RETURN 
1230 GOTO 1180 


REM PREGUNTAS DISCRIMINATORIAS 
CcLS 
FOR J=1 TO TT 
PRINT A$(J) 
NEXT J 
DOA=0 
DO=DQ+1 
GOSUB 1500 
PRINT " INTRODUCE LA PREGUNTA NU 
"5DQ03"  PULSA < RETURN > PARA TE 
RMINAR " 
1340 INPUT Es$(DO) 
1350 IF E$(DQ)="" OR DO=51 THEN DO=DO 
1: RETURN 
1360 GOTO 1310 





RITA hace preguntas al usuario en la parte del programa que comienza en 
la línea 140: 


140 REM PREGUNTAS AL USUARIO 

150 CLS 

160 PRINT "ESTOS SON LOS TEMAS ENTRE 

LOS QUE PUEDO DISTINGUIR :" 

170 PRINT 

180 FOR J=1 TO TT 

190 PRINT " > "5A$(J) 

200 NEXT J 

210 GOSUB 1500 

220 IF X$="" THEN PRINT "PIENSA UNO, 
DESPUES PULSA < RETURN 2>" 

230 IF X$<>"" THEN PRINT "ESTOY PREPA 
RADA PARA DEDUCIR CUAL TIENES EN M 

ENTE." 

240 IF X$="" THEN INPUT 3J$ 

250 ADD=.5 

260 FOR J=1 TO DO 

270 ADD=ADD+ADD 

280 GOSUB 1500 

290 IF X$<>"" AND TT>2 THEN 390: REM 
REVISION POR SI LA PREGUNTA SE PUEDE 
PASAR POR ALTO 

300 PRINT " PULSA UNO DE ESTOS NUMERO 
S 1" 

310 PRINT " 1 (CIERTO) O (FALSO) $ (F 
IN) 

320 PRINT:PRINT E$(J)5 

330 INPUT H$:1F H*="%" THEN PRINT:FPRI 
NT " HASTA PRONTO ":PRINT:END 

340 C(J)=VAL (H$) 

350 C(J)=ADD*C(J) 

360 NEXT J 

370 RETURN 





En la línea 330 se pide la introducción de una variable alfanumérica después 
de que en la línea precedente se haya visualizado la pregunta. Si la variable es 
un signo dólar, el programa finaliza (después de un educado GRACIAS) en la 
misma línea. En otro caso, el VAL de la variable se carga en un elemento de 
la matriz C (línea 340) que a continuación se multiplica en la línea siguiente por la 
variable ADD. Antes de que el bucle J comience (el cual admite las entradas del 
usuario), ADD se hace igual a 0.5 y se añade a sí misma (esto es, dobla su 
valor) cada vez que se recorre el bucle (haciéndola valer 1, 2, 4, 8, 16, y así 
sucesivamente) antes de que C(J) sea multiplicado por ella. Una vez recorrido el 
bucle el control del programa vuelve a un ciclo de llamadas a subrutinas 
próximo al comienzo del mismo. 
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La línea 290 envía el control del programa a la subrutina de la línea 390, 
la cual hace comprobaciones para ver si la pregunta se puede omitir. 


REM II III REI IEIRIERE A 

REM DECIDE SI LA PREGUNTA SE 
PUEDE OMITIR 

JUMP=1 

FOR W=1 TO TT 

IF ABS(B(W,J)-B(1,J3))>.7 THEN JUM 


NEXT W 

IF JUMP=0 THEN 300 
C(J)=B(W,J) 

GOTO 360 





Esto lo hace comparando todos los valores almacenados en la matriz B para 
aquella pregunta. Si la diferencia entre ellos no es mayor que 0.7, RITA supone 
que la información que suministra esa pregunta puede ser ignorada con toda 
seguridad. Este 0.7 es una de las constantes con las que podría querer jugar. 

Una vez que todas las preguntas se han contestado, RITA va a la rutina 
más importante, situada a partir de la línea 480, donde se toma la decisión y 
—sl es preciso— se actualizan las reglas. 


470 REM 36462 16d MIE EH EMITE 
480 REM TOMA DE DECISION 

490 FOR J=1 TO TT 

500 D(J)=0:E(J)=0:F (J)=0 

510 NEXT J 

520 ADD=.5 

530 FOR J=1 TO TT 





| 
l 
' 
| 
l 
I 
l 
| 
l 
| 
l 
l 
| 
| 
l 
I 
l 
l 
1 
l 
| 
| 
l 
' 
l 
l 
J 
| 
l 
I 
l 
l 


O 540 ADD=ADD+ADD 
550 FOR X=1 TO DO 
560 REM JUEGA CON LOS VALORES DE LAS 
O TRES LINEAS SIGUIENTES PARA LOGRAR O 
UNA MAYOR EFICACIA 
570 1F C(X)=B(J,X) THEN D(J)=D(J)+1 
O 580 IF ABS(C(X)-B(J,X))<.46x* ADD THEN E O 
(J)=E(J)+.4 
590 IF ABS(C(X)-B(J,X))<1.2*ADD THEN 
O F(J)=F (J)+.2 O 


O 
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600 NEXT X 

610 NEXT J 

620 Al=1:A2=1:A3=1 

630 Fi=1:F2=1:F3=1 

640 FOR J=1 TO TT 

650 IF D(J)>F1 THEN Fi=D(J):Ai=J 

660 IF E(J)>F2 THEN F2=E (J):A42= 

670 1F F(J)>F3 THEN F3=F (J):43=3 

£680 NEXT J 

6790 REM x*x% PRESENTA EL RESULTADO +x 
700 PRINT 

710 CF=0 

720 FPRINT "EL RESULTADO MAS PROBABLE 
ES "jAs$(Al) 

730 IF A2<>A1 THEN PRINT "EL SIGUIENT 
E MAS PROBABLE ES "3A$(A42):CF=1 

740 IF A3<>A2 AND A3<>A1l THEN PRINT " 
EL SIGUIENTE MAS PROBABLE ES "jA$(A3) 
:¿ CF=2 


750 PRINT 

760 PRINT " ES CORRECTO EL RESULTA 

DO MAS PROBABLE —? os 
No 


> 

770 INPUT F$ 

780 IF F$<>"S" AND F$<>"N" THEN 770 
790 1F F$="S" AND X$<>"" THEN RETURN 
800 IF F$="S" THEN 980 

810 IF TT=2 AND Ai=1 THEN Al=2:GOTO 9 
80 

820 IF TT=2 THEN Ai=1:GOTO 980 

830 1F CF=0 THEN 890 

840 PRINT "ES CORRECTA MI SEGUNDA ELE 
CCION ? (S,N>)% 

850 INPUT F$ 

860 IF F$="N" THEN 890 

870 IF CF=1 THEN A1=42:GOTO 980 

880 IF CF=2 THEN A1=A3:GOTO 980 

890 GOSUB 1500 

900 FOR J=1 TO TT 

910 PRINT J3"- "5A$(J) 

920 NEXT J 

930 PRINT 

940 PRINT " CUAL ES LA SOLUCION CORRE 
CTA 2"; 


O 


O 


ra0 ¿OL 0 
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950 INPUT Al 
960 IF A1<1 OR A1>TT THEN 950 
970 REM  *x* EDUCANDO A RITA — x*x* 
( ACTUALIZACION DE CONOCIMIENTOS ) 
980 FOR J=1 TO DO 
990 IF B(A1,J)<>0 THEN B(A1,J)=(C(J)+ 
5S.9X*B(A1,J))/6 
1000 IF B(A1,J)=0 THEN B(Al,J)=C(J) 
1010 B(A1,J)=INT(10x*B(A1,J))/10 
1020 NEXT J 
1030 PRINT 
1040 IF U$="" THEN RETURN 
1050 FOR J=1 TO TT 
1060 PRINT:GOSUB 1500 
1070 PRINT A$(J) 
1080 PRINT 
1090 FOR K=1 TO DQ 
1100 PRINT E$(K)5B(J,K) 
1110 NEXT K 
1120 NEXT J 
1130 PRINT 
1140 RETURN 





El proceso comienza igualando a cero los elementos de las matrices D, E 
y F. La matriz D almacenará los resultados “más probables”, la E los “siguientes 
más probables” y la F los “siguientes más probables” después de E. Seguida- 
mente, la variable ADD (que fue utilizada, como recordará, en la rutina “con- 
sultas al usuario”, para multiplicar la información introducida por él) se iguala 
a 0.5 de manera que se pueda utilizar en el bucle siguiente. 

El control del flujo del programa lo toman ahora un par de bucles anidados. 
El bucle J va desde uno hasta TT (número de salidas) con el bucle X yendo 
desde uno hasta DQ (número de preguntas discriminatorias). 

Las tres líneas siguientes son las más importantes del programa. Es donde 
RITA toma su decisión. La línea 570 busca una coincidencia exacta entre la 
respuesta introducida, C(X), y aquel elemento de la matriz B que relaciona 
la posible salida (el valor que tiene TT en ese punto) y la pregunta cuya C(X) es la 
respuesta (el valor que DQ tiene en ese punto). Si encuentra una coincidencia 
total, D(J) se incrementa en uno. Es decir, la posibilidad de que la salida J sea el 
valor más alto —y por tanto de ser la respuesta seleccionada por RITA— se 
incrementa en una unidad. Tal vez se encuentre con que sus sistemas funcionan 
mejor, si en este punto se añade, por ejemplo, 1.5 en vez de 1. 

La línea 580 busca una gran similitud entre un valor de la base de datos y 
la respuesta introducida, y si encuentra una coincidencia dentro de un margen 
de 0.6, añade 0.4 a E(J). Observe que, cuando una coincidencia es exacta, se 


84 


añade un 1 a D(J), y si es aproximada, un 0.4 a E(J). La línea 590 busca 
coincidencias “no tan exactas”, y si las encuentra añade un 0.1 a E(J). 

Las líneas 620 y 630 igualan a cero las variables Al, A2, A3, Fl, F2 y F3, 
antes de activar el bucle J que va desde las líneas 640 a 680. Conforme recorre 
este bucle, RITA iguala cada variable F al valor más alto que puede hallar 
(haciendo F1 igual al mayor D(J); F2 igual al mayor E(J) y F3 al mayor F(J)). 
Cada vez que cambia Fl, F2 o F3, se modifican Al, A2 o A3 para igualar al 
“número” de aquel elemento que provocó el cambio (es decir, se iguala al valor 
de J en ese punto). Esto le proporciona a RITA un registro de los elementos 
hallados hasta aquí que tengan el mayor valor. 

Una vez que RITA recorre los bucles, Al se iguala a la salida que tiene más 
probabilidades de ser cierta (debido a que la mayoría de las coincidencias y/o 
casi coincidencias entre la regla base y las respuestas del usuario se han dado 
para esa salida). 

Ahora es el momento de que RITA anuncie su conclusión. La línea asigna el 
valor cero a la variable denominada CF. Como la matriz A$ contiene los 
nombres de las salidas, AS(A1) es el elemento de ella que es el nombre de la 
salida más probable. La línea 720 anuncia esta conclusión. Si A2 no es igual a 
Al (es decir, el “siguiente más probable” no es el mismo que “el más probable”), 
RITA da este resultado y pone CF igual a 1 (que se usará en seguida). Si A3 
tiene un valor diferente al de Al y A2, se da un “siguiente más probable” y CF 
se iguala a 2, 

La línea 770 pregunta si la conclusión de RITA es correcta. Si la respuesta 
es sí (es decir, F$ es igual a “S”) y X$ no es igual a “” (lo que sucede cuando 
RITA deja de funcionar en modo aprendizaje y lo hace en modo de trabajo), la 
regla base no se modifica. Si RITA está en modo de trabajo, y la respuesta es 
correcta, entonces la regla base no debería ser alterada. Si RITA está todavía en 
modo aprendizaje, la línea 800 traslada la acción a la rutina que empieza en la 
línea 980, y actualiza la regla base. 


Dos salidas 


Si solamente hay dos salidas, la variable TT será igual a 2. El ordenador 
alcanza la línea 870 después de habérsele introducido una “N” (que indica que 
su respuesta era errónea). Por tanto, como sólo hay dos respuestas, la otra debe 
ser la correcta. Si Al es igual a 1, entonces RITA dio —incorrectamente— la 
salida 1 como respuesta correcta. La línea 810 cambia esto, de modo que Al se 
iguale a la respuesta correcta (es decir, a 2) antes de que la acción se traslade a 
la línea 980 para actualizar la regla base. La línea 880 hace lo contrario, 
cambiando un incorrecto 2 por un 1. 

Si hay más de dos salidas, entonces a RITA se le ponen las cosas un poco 
más difíciles. Ya no es evidente cuál de las restantes salidas es la correcta. La 
línea 830 comprueba la variable CF y si la encuentra igual a cero, sabe qu> 
RITA no ha indicado ningún resultado “siguiente más probable”, por lo que 
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salta a la subrutina de las líneas 890 a 960 que pregunta al usuario qué 
respuesta era la correcta. 

Si RITA ha asignado algún valor a A2 y A3 (los “siguientes más probables”) 
diferentes de los asignados a Al (el “más probable”), el programa pregunta si su 
“segunda elección” A$(A2), es la correcta. Si es así, el valor de CF indica qué 
respuesta se ha dado como segunda elección (si CF es igual a 1, es el valor de 
A2; si CF es igual a 2, es el valor de A3) por lo que RITA sabe qué respuesta 
es correcta, y salta a la subrutina de la línea 980 equipada con esa información, 
con el fin de actualizar la regla base. 

La siguiente subrutina, líneas 900 a 960, la hemos visto ya. Escribe en la 
pantalla todas las salidas, y pide al usuario que indique cuál es la correcta. 

El programa recorre el bucle J desde las líneas 980 a 1020. Al recorrer la 
porción relevante de la base de datos, B(A1,J), comprueba si es igual a cero. Lo 
será si hasta el momento no se ha registrado todavía ninguna información 
(como ocurrirá siempre al comienzo de la ejecución del programa). Si B(A1,J) es 
diferente de cero (línea 990) el programa multiplica el valor actual guardado allí, 
por cinco, le añade el valor obtenido ahora y divide el resultado por seis. Esto 
asegura que: a) toda la información de experiencias anteriores no quede barrida 
por esta respuesta; b) el impacto de la respuesta actual no sea ignorado; c) una 
respuesta atípica no modifique la regla base demasiado (de modo que un único 
e inusual gato que nade no destruya la capacidad del programa para reconocer 
como gatos a animales que poseen todas las demás características “gatunas”, 
pero que no saben nadar como nuestro anómalo gato. 

Si B(A1,J) es igual a cero (línea 1000), entonces este elemento se iguala a la 
única respuesta que ha encontrado el sistema hasta aquí en relación con esta 
pregunta y salida, por lo que se hace igual a Al. La línea 1010 redondea cifras 
decimales. (Sin ella, RITA mantendría valores con hasta seis cifras decimales, lo 
cual es absurdo, dada la naturaleza altamente subjetiva de algunos de los datos 
originales.) 

Finalmente, en esta larga y más importante parte del programa, RITA 
comprueba la línea 1040 para ver si US$ es igual a “”. Si lo es, significa que el 
usuario indicó al comienzo del programa que no quería ver en pantalla 
el estado actual de la regla base. En este caso, regresa al bucle de control del 
comienzo del programa para subsiguientes series de entradas. Si el usuario 
indicó su deseo de ver la regla base actual (y esto es, a mi entender, la parte 
más interesante de todo el proceso), la siguiente sección la escribe, tal y como 
hemos visto ya en los ejemplos del funcionamiento de RITA. 
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Listado 


completo 
de FUZZY RITA 


En el capítulo anterior se vieron algunas de las partes del programa RITA. 
No obstante, no se dio el listado completo. Este capítulo salvará tal omisión. 
En el próximo, probaremos RITA con otro conjunto de datos meteorológicos, y 
mostraremos un medio de tratar los datos de entrada de forma que queden 
ordenadamente dentro de la escala del 0 al 1. 

Antes de ello, no obstante, damos el listado: 





FUZZY RITA 
1380:REM INICIALIZACION 


Il 10 REM | 
20 GOSUB | 
30 GOSUB 1160:REM OPCIONES DE SALIDA 0 
40 GOSUB 1250:REM PREGUNTAS ) 
DISCRIMINATORIAS 
| 50 GOSUB 140:REM PREGUNTAS AL USUARIO 
O |. 40 GOSUB 480:REM TOMA DE DECISION Y 0 

| 

| 

1 | 

| ] 

| 

| ] 

: 1 





ACTUALIZACION DE CONOCIMIENTOS 
70 PRINT " PULSA < RETURN > FARA CONT 
INUAR";5 
80 IF X$<>”"" THEN INPUT 1$:G0OTO 350 
90 PRINT " EL ADIESTRAMIENTO ." 
100 PRINT "O CUALQUIER TECLA SEGUIDA 
DE <RETURN> PARA HACER USO DE RITA"; 
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DÍ ¿DA TON 50. :0 


O 


110 INPUT X$:GOTO 50 

120 END 

130 REMO MI EI HEHE EIEIIIIEM REIE A 
140 REM PREGUNTAS AL USUARIO 


150 CLS 

160 PRINT "ESTOS SON LOS TEMAS ENTRE 
LOS QUE PUEDO DISTINGUIR :" 

170 PRINT 


180 FOR J=1 TO TT 
190 PRINT " > "3A$(J) 


200 NEXT J 
210 GOSUB 1500 
220 IF X$="" THEN PRINT "PIENSA UNO, 


DESPUES PULSA < RETURN >" 

230 IF X$<>"" THEN PRINT "ESTOY PREFA 
RADA PARA DEDUCIR CUAL TIENES EN M 
ENTE." 

240 IF X$="" THEN INPUT 3J$ 

250 ADD=.5 

260 FOR J=1 TO DQ 

270 ADD=ADD+ADD 

280 GOSUB 1500 

290 IF X$<>"" AND TT>2 THEN 390: REM 
REVISION POR SI LA PREGUNTA SE PUEDE 
PASAR POR ALTO 

300 PRINT " PULSA UNO DE ESTOS NUMERO 
IR 

310 PRINT " 1 (CIERTO) O (FALSO) $ (F 
IN) 

320 PRINT:PRINT E$(J)5 

330 INPUT H$:1F H$="s$" THEN PRINT:PRI 
NT ” HASTA PRONTO ":PRINT: END 

340 C(J)=VAL (H%) 

350 C(J)=ADDxC(J) 

360 NEXT J 

370 RETURN 

38O REM 36-236 IE 40H IM IE IE IM IE HE MEE HIERE ME ME 

390 REM DECIDE SI LA PREGUNTA SE 

PUEDE OMITIR 

400 JUMP=1 

410 FOR W=1 TO TT 

420 IF ABS(B(W,J)-B(1,J3))>>.7 THEN JUM 
P=0 

430 NEXT uW 

440 IF JUMP=0 THEN 300 


O 


DS A O. 


450 C(J)=B(W,J) 

460 GOTO 350 

470 REM dd 02d DI IEA DERIO TH IHEA 

480 REM TOMA DE DECISION 

490 FOR J=1 TO TT 

500 D(J)=0:E(J)=0:F (J)=0 

510 NEXT J 

520 ADD=.5 

530 FOR J=1 TO TT 

540 ADD=ADD+ADD 

550 FOR X=1 TO DQ 

560 REM JUEGA CON LOS VALORES DE LAS 
TRES LINEAS SIGUIENTES PARA LOGRAR 
UNA MAYOR EFICACIA 

570 IF C(X)=B(J,X)> THEN D(J)=D(J)+1 
580 IF ABS(C(X)-B(J,X))<.6* ADD THEN E 
(J)=E (J)+.4 

590 IF ABS(C(X)-B(J,X))<1.2*ADD THEN 
F(J)=F (J)+.2 

£00 NEXT X 

610 NEXT J 

620 Al=1:A2=1:A3=1 

630 Fli=1:F2=1:F3=1 

640 FOR J=1 TO TT 

650 IF D(J)>F1 THEN Fi=D(J):A1=J 

660 IF E(J)>F2 THEN F2=E (3) :A2=J 

670 1F F(J)>F3 THEN F3=F (J):43= 

680 NEXT J 

690 REM *x% PRESENTA EL RESULTADO ++ 
700 PRINT 

710 CF=0 

720 PRINT "EL RESULTADO MAS PROBABLE 
ES "¡A$(A1) 

730 IF A2<>A1 THEN FRINT "EL SIGUIENT 
E MAS PROBABLE ES ":A$(A2):CF=1 

740 1F A3<>A2 AND A3<>A1 THEN PRINT ” 

EL SIGUIENTE MAS PROBABLE ES "3A$(43) 
:¿ CF=2 


750 PRINT 

760 PRINT " ES CORRECTO EL RESULTA 
DO MAS PROBABLE — cts 
s N 3% 


770 INPUT F$ 
780 IF F$<>"S" AND F$<>"N" THEN 770 
790 1F F$="S" AND X$<>"" THEN RETURN 


91 


92 


O: 0" 0 


O 


800 IF F$="S" THEN 980 
810 IF TT=2 AND Ai=1 THEN Al=2:GOTO 9 
80 

820 IF TT=2 THEN Al=1:GOTO 980 

830 IF CF=0 THEN 890 

840 PRINT "ES CORRECTA MI SEGUNDA ELE 
CCION 2? (S,N>)% 

850 INPUT F$ 

860 IF F$="N" THEN 890 

870 IF CF=1 THEN A1=A2:GOTO 980 

880 IF CF=2 THEN A1=43:GOTO 980 

890 GOSUB 1500 

900 FOR J=1 TO TT 


910 PRINT J53"- "5A$(J) 

920 NEXT J 

930 PRINT 

940 PRINT " CUAL ES LA SOLUCION CORRE 
CTA 2"; 


950 INPUT At 
950 IF A1<1 OR A1>TT THEN 950 
970 REM ** EDUCANDO A RITA  **x* 
( ACTUALIZACION DE CONOCIMIENTOS ) 
980 FOR J=1 TO DO 
990 IF B(A1,J)<>0 THEN B(A1,J)=(C(J)+ 
5.5*B(A1,J))/6 
1000 IF B(A1,J)=0 THEN B(A1,J)=C(J) 
1010 B(A1,J)=INT(10*B(A41,3))/10 
1020 NEXT J 
1030 PRINT 
1040 IF U$="" THEN RETURN 
1050 FOR J=1 TO TT 
1060 PRINT:GOSUB 1500 
1070 PRINT A$(J) 
1080 PRINT 
1090 FOR K=1 TO DQO 
1100 PRINT E$(k)5B(J,K) 
1110 NEXT K 
1120 NEXT J 
1130 PRINT 
1140 RETURN 
1150 REM Hd 36 2 416 dE IE IE IE DE IE IE E DE IE IET IE RE DE 
1160 REM _ OPCIONES DE SALIDA 
1170 TT=0 
1180 TT=TT+1 
1190 GOSUB 1500 


97 0% O 07 O 


O 


O 


0. Di lO, FO 0D O O 


O 


1200 PRINT "INTRODUCE LA RESPUESTA NU 
MERO "3TT3"  PULSA < RETURN > PARA TE 
RMINAR " 
1210 INPUT A$(TT) 
1220 IF A$(TT)="" OR TT=51 THEN TT=TT 
-1: RETURN 
1230 GOTO 1180 
1240 REM 4116 II III IE IE IE IE IE IE IE II IE IEA IEA 
1250 REM PREGUNTAS DISCRIMINATORIAS 
1260 CLS 
1270 FOR J=1 TO TT 
1280 PRINT A$(J) 
1290 NEXT J 
1300 DO=0 
1310 DO=D0+1 
1320 GOSUB 1500 
1330 PRINT " INTRODUCE LA PREGUNTA NU 
MERO "3DQ3" PULSA < RETURN > PARA TE 
RMINAR " 
1340 INPUT E$(DO) 
1350 IF E$(DQ)="" OR DO=51 THEN DO=DQ 
—1: RETURN 
13650 GOTO 1310 
1370 REM 4d dd III IE ME IE MIE II II II IIA E 
1380 REM  INICIALIZACION 
1390 CLS:KEYOFF 
1400 REM REDUCE LAS MATRICES DE LA 
SIGUIENTE LINEA DE ACUERDO A 

TUS NECESIDADES O POSIBILIDADES 
1410, DIM A$(50),B(50,50),0(50),D(50), 
E$ (50) ,F (50) ,E (50) 
1420 X$="" 
1430 PRINT "PULSA UNA TECLA SEGUIDA D 
E < RETURN > SI QUIERES "; 
1440 PRINT "VER LOS CONOCIMIENTOS" 
1450 PRINT "ADQUIRIDOS DESPUES DE CAD 
A RONDA. " 
1460 PRINT "EN CASO CONTRARIO PULSA U 
NICAMENTE < RETURN > .":PRINT 
1470 INPUT U$ 
1480 CLS 
1490 RETURN 
1500 PRINT STRING$ (36, "-") 
1510 RETURN 


O". O 070. "0. 0. 0 0 
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El observatorio 
de meteorología 


En este capitulo convertiremos a RITA en un experto predictor del tiempo 
que hace en diciembre en Melbourne (Australia). Explicaré con algún detalle los 
pasos que he seguido para crear este sistema experto. De esta forma se puede 
hacer una idea de cómo utilizar a RITA para crear sus propios sistemas 
expertos reales. 

En primer lugar, los datos tienen que estar de forma que a RITA le resulten 
fáciles de asimilar. Dijimos que RITA espera que se le introduzcan valores 
comprendidos entre cero y uno, siendo cero falso y uno verdadero, y represen- 
tando los valores intermedios diferentes grados de veracidad. No tenemos por 
qué utilizar siempre valores entre cero y uno. RITA es extremadamente toleran- 
te. Sin embargo, resulta más simple establecer un nivel estándar y mantenerlo 
siempre que se desarrolle un sistema experto a partir de la estructura de RITA, 
que tener que hacer pruebas y calcular posteriormente qué escala se está 
utilizando. 

La relación de datos que le damos a RITA en este ejercicio corresponde a 
las condiciones meteorológicas de Melbourne, en diciembre de 1984. Daremos 
al ordenador las lecturas barométricas diarias efectuadas a las 9 horas de la 
mañana, las temperaturas mínimas y máximas y la humedad relativa a las 
15 horas. A partir de estos datos, RITA ha de decirnos si al día siguiente va a 
llover o no. 

El observatorio de meteorología de la Commonwealth (que proporcionó 
los datos) señaló que durante el mes que estamos estudiando se registró el 
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mayor número de días de lluvia (14) desde 1976. Esto está bien, ya que significa 
que alrededor de la mitad de los días del mes fueron húmedos, lo contrario que 
en 1982, mes casi totalmente seco que no habría representado un desafío 
importante para RITA y hubiera probado muy poco. 

A continuación detallamos la relación de datos para los primeros días. 





Fecha Baróm. Temp. Temp. HR Lluvia 
mín. máx. (%) 
1 1011.6 11.0 25.5 31 0 
1006.7 12.6 27.6 29 0 
3 1012.4 10.8 16.5 52 2.6 


Se puede observar que los números varían mucho en magnitud, con unas 
lecturas barométricas alrededor de 1000, temperaturas que oscilan entre 10 y 30, 
con un porcentaje de humedad relativa que varía presumiblemente de cero a 
cien y con lluvias de cero a infinito. ¿Cómo convertimos estos números en 
adecuados valores pequeños que queden en nuestra escala desde cero a uno? 

Es muy fácil, y su ordenador hará casi todo el trabajo para usted. Cargue y 
ejecute el programa siguiente, y se lo explicaré. 





REM HACIENDO ESCALAS 

20 DIM X(50),Z (50) 

30 CELS: KEYOFF 

40 INPUT ” VALOR MAXIMO :"35A 
30 INPUT " VALOR MINIMO :"5B 
60 A=A+1E-03 

70 B=B-1E-03 

80 C=(A-B)/50 

90 X(0)=B 

100 FOR J=1 TO 50 

110 X(J)=X(J-1)+C 

120 Z(J)=J/50 

130 PRINT Z(J),X(3J) 

140 NEXT J 

150 DF=(X (2)-X(1))/2 

140 EN=0 

170 CN=CN+1 

180 PRINT "INTRODUCE EL VALOR" 3CN 
190 INPUT 0$ 

200 IF O$="" THEN END 

210 Q=VAL (0$) 

220 IF 0<B OR Q>4A THEN 180 
230 FOR J=0 TO 50 


O, Y ¿000 


QQ), DO 
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O |. 240 IF ABS(0-X(J))<DF THEN LPRINT CN; o 
1 J 
¡ 11. Z(J) | 
250 NEXT J 
O! 260 GOTO 170 Da 





Ejecute el programa y siga las indicaciones. Tenemos una relación de datos 
que han de ser introducidos, tales como los barométricos del boletín meteoroló- 
gico. El programa nos pide el VALOR MAS ALTO?, así que echamos un 
vistazo a los datos barométricos en busca del mayor número de la lista. En la 
mía es el 1018.1, así que lo introduzco en el ordenador. La siguiente petición es 
VALOR MAS BAJO?, y buscándolo damos con el 994.2, que también lo 
introduzco. 

Ahora el ordenador nos pide le introduzcamos uno a uno los datos que 
necesitamos, le da el número de orden (la variable COUNT en la línea 180) de 
la lista para el caso de que nos perdamos. Introducimos el primer número 
(1011.6) de nuestra lista, y la línea 240 escribe (en este caso en la impresora. 
Basta con quitar la L del LPRINT para que salga en la pantalla) el valor 0.72, 
que es el equivalente en la escala de cero a uno, de 1011.6 en la muchísimo 
menos adecuada escala de 994.2 a 1018.1. Recorremos todos los datos del mes, 
introduciendo cada uno de los números y anotando (o haciendo que el orde- 
nador lo haga por nosotros) los resultados, de forma que los podamos introdu- 
cir a RITA a su debido tiempo. 

Las temperaturas mínimas, las máximas y la humedad relativa siguen el 
mismo proceso. Ahora estamos a punto de comenzar el adiestramiento de 
RITA sobre las peculiaridades del clima australiano. Primero, no obstante, 
haremos una serie de pequeñas modificaciones en el programa. Como recorda- 
rá, dije que el programa RITA, tal cual, era únicamente una estructura en bruto 
que podía (y debía) ser modificado para que diera así los mejores resultados en 
el campo específico que queramos. 

Como los datos a introducir para este programa vienen con dos cifras 
decimales, parece absurdo redondearlo a una sola cifra decimal en la línea 1010, 
con lo cual perdemos, probablemente, información vital. Para solucionarlo 
modificamos la línea 1010 de la siguiente manera: 


1010 B(A1,J)=INT(100*B(A1,J3))/100 


La línea 570, que busca coincidencias exactas entre los datos que estamos 
introduciendo y los de la base de datos, se modifica para que busque coinciden- 
cias aproximadas, en vez de exactas, tal como sigue: 


570 IF ABS(C(X)-B(J,X))<.2*ADD THEN 
D(J)=D(J)+1 
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Adiestramiento de RITA 


Ya estamos preparados para probar a RITA. Comenzamos por decirle que 
MANANA LLUVIA y MAÑANA SECO son las opciones de salida, y decidi- 
mos las preguntas discriminatorias que nos serán formuladas: 


INTRODUCE LA PREGUNTA NUMERO — 1 
(PULSA <RETURN> PARA TERMINAR) 
? BAROMETRO 

INTRODUCE LA PREGUNTA NUMERO 2 
(FULSA <RETURN> PARA TERMINAR) 
2 TEMPERATURA MINIMA 
INTRODUCE LA PREGUNTA NUMERO 3 
(PULSA <RETURN> PARA TERMINAR) 
TEMPERATURA MAXIMA 

INTRODUCE LA PREGUNTA NUMERO 4 
(PULSA <RETURN> PARA TERMINAR) 
? HUMEDAD RELATIVA 


Transcurridos cuatro días de darle datos y hacer correcciones, la regla base 
de RITA queda así: 


AMANECER LLUVIOSO 


1) 


BAROMETRO .6 
TEMPERATURA MAXIMA  .7 
TEMPERATURA MINIMA 2.46 
HUMEDAD RELATIVA 2.15 


E 


AMANECER DESPEJADO 


T 


BAROMETRO — .72 
TEMPERATURA MAXIMA .48 
TEMPERATURA MINIMA 2.88 
HUMEDAD RELATIVA 1.12 


y 
ls] 


o 
00 


Lo más destacado de la regla base creada por RITA se refiere a la humedad 
relativa. Si es baja, entonces es probable que el día siguiente sea seco, lo cual 
parece una regla razonable. También parece que RITA piensa que temperaturas 
mínimas bajas y altas lecturas barométricas señalan también hacia un día seco. 

Hacemos funcionar el programa durante cuatro días más de datos. Después 
de ello, la anterior regla base de RITA ha sido sustituida por la siguiente: 


AMANECER LLUVIOSO 


B 
EL 


BAROMETRO  .6 
TEMPERATURA MAXIMA  .7 
TEMPERATURA MINIMA 2.46 


HUMEDAD RELATIVA 2.15 


1) 


AMANECER DESPEJADO 


L 


BAROMETRO —.84 
TEMPERATURA MAXIMA .55 
TEMPERATURA MINIMA 2 
HUMEDAD RELATIVA 2.36 


A 


A pesar de que RITA mantiene sus opiniones anteriores sobre lecturas 
barométricas y temperaturas mínimas, su forma de pensar sobre la humedad 
relativa ha cambiado completamente. Continué pacientemente introduciendo 
más datos. Al final de mes la regla base de RITA se ha consolidado de la forma 
siguiente: 


ec oso ES) 
AMANECER LLUVIOSO lo) 
BAROMETRO — .43 

TEMPERATURA MAXIMA 1 ATAN 
TEMPERATURA MINIMA 2.23 lo) 


HUMEDAD RELATIVA 3.74 


A A PF] 
AMANECER DESPEJADO 1% 
=> 


BAROMETRO  .75 


TEMPERATURA MAXIMA  .95 NE 
TEMPERATURA MINIMA 2.86 EN 
HUMEDAD RELATIVA 2.15 O, 


Una lectura barométrica baja, una alta temperatura mínima y una baja 
máxima, junto con una alta humedad relativa sugieren MAÑANA LLUVIA, 
mientras que las condiciones contrarias señalan a MAÑANA SECO. Estas 
ideas no parecen irracionales, pero ¿qué resultado dan en la práctica? 

En el mes en cuestión, ignorando el día primero (ya que en su caso la 
respuesta de RITA depende por completo del orden en el que se han introduci- 
do las opciones de salida), había veintinueve días que podíamos comprobar. 
RITA predijo la presencia o ausencia de lluvia correctamente en dieciocho de 
ellos, lo cual parece bastante aceptable. Esta impresión queda reforzada si se 
examinan los datos, que muestran cómo RITA predijo como seco un día en el 
que sólo cayeron 0.2 mm de lluvia, y que unos pocos días húmedos en medio 
de una racha de secos fueron calculados acertadamente. 

Para ver si RITA continúa aprendiendo, volvemos a introducir otra vez los 
datos de todo el mes. Al final de esta segunda prueba, RITA ha desarrollado 


PTA oo 
IE AMANECER LLUVIOSO 
BAROMETRO  .43 
3 TEMPERATURA MAXIMA 1.01 
a) TEMPERATURA MINIMA 2.13 


(ASES, HUMEDAD RELATIVA 3.97 


$e AMANECER DESPEJADO 


BAROMETRO  .739 
TEMPERATURA MAXIMA .98 


N TEMPERATURA MINIMA 2.58 
HUMEDAD RELATIVA 2.22 


Podemos ver que básicamente RITA ha reforzado su anterior posición, 
incrementando un poco más su alto valor para la humedad relativa cuando se 
trata de un día lluvioso. Los resultados del segundo mes son un perfecciona- 
miento sobre los de la primera prueba. Los mismos veintinueve días han 
producido diecinueve predicciones correctas, aunque todavía sigue prediciendo 
como seco un día en el que han caido 0.2 mm de lluvia. También predijo 
acertadamente que el día segundo del mes sería seco (hecho que en la primera 
vez no tiene medios para hacerlo), elevando el índice de aciertos de la segunda 
vez a 20 de cada 30. 

A continuación aparecen los resultados de RITA, indicando los errores con 
una X. 
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DIA — TIEMPO PRIMERA SEGUNDA 
PREDICCION  FREDICCION E 

2 SECO HUMEDO SECO ES, 
3 HUMEDO SECO X HUMEDO 

4 HUMEDO SECO X HUMEDO 

5 HUMEDO HUMEDO HUMEDO RS 
6 SECO SECO HUMEDO X A] 
7 SECO HUMEDO X SECO 

8 SECO SECO SECO 

9 SECO SECO SECO 

10 SECO SECO SECO (ES 
11 HUMEDO SECO X SECO X lo) 
12 HUMEDO HUMEDO HUMEDO 

13 SECO HUMEDO X HUMEDO 

14 HUMEDO HUMEDO HUMEDO =, 
15 HUMEDO SECO SECO X (3 
16 SECO SECO SECO — 
y? HUMEDO SECO HUMEDO 

18 HUMEDO SECO X SECO X 

19 SECO HUMEDO X HUMEDO X [) 
20 HUMEDO SECO X SECO X lo) 
21 HUMEDO SECO X SECO X 
22 SECO SECO SECO 

23 SECO SECO SECO EA 
24 SECO SECO SECO e 
25 HUMEDO HUMEDO SECO X 
26 HUMEDO HUMEDO HUMEDO 

27 HUMEDO SECO X SECO X 
28 SECO SECO SECO 3 
29 SECO SECO SECO Lo) 
30 SECO SECO SECO 


Una tabla como ésta sería muy práctica a la hora de intentar crear un 
sistema experto real, ya que destaca dónde se han producido los errores. Por 
ejemplo, en ambas ocasiones las predicciones para los días 18 a 21 fueron 
erróneas. Sería muy interesante descubrir los valores en ese punto, para ver si es 
preciso un pequeño retoque de algunas partes del proceso de discriminación. 

Tal vez quiera ahora el lector hacerse con unas estadísticas de su propia 
ciudad y ver qué tal funciona RITA con ellas. 


Nuevas entradas 


Si quiere, podemos modificar la parte del programa de respuestas del usua- 
rio de modo que, en lugar de introducir un número entre O y 1, se 
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introduzca simplemente una palabra escogida de un menú, que se traduce 
internamente en un número adecuado para el sistema. 

Tal menú (junto con el número que RITA podría crear en base a la 
respuesta dada después de cada palabra) podría ser así: 


= 


PES 
| 
a 

=Y) 


_ 


7 


SELECCIONA LA OPCION CORRECTA PARA 
ESTA CUESTION : 


A — SIEMPRE (1) 
B - CASI SIEMPRE (.8) 
C — LA MITAD DE LAS VECES (.6) 
D -— DE VEZ EN CUANDO (.4) 
E — MUY RARAMENTE (.2) 
F — NUNCA (0) 


Tal vez se encuentre con que esto hace a su RITA no solamente más fácil de 
utilizar, sino también más efectivo, ya que es más probable obtener del usuario 
respuestas algo más consistentes que las que se obtendrían si tuviera que hacer 
una estimación de la veracidad de la respuesta a una pregunta discriminatoria. 
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10 
Lógica 
y programación 


La consecución de una máquina que funcione lógicamente es un paso 
fundamental en el camino seguido para lograr el comportamiento de una 
máquina que pudiera llamarse genuinamente inteligente. Las tentativas de pro- 
gramar el comportamiento lógico en una máquina poseen una dilatada historia 
en el estudio de la lógica. 

El famoso silogismo de Aristóteles... 


TODOS LOS HOMBRES SON MORTALES 
ARISTOTELES ES UN HOMBRE 
LUEGO ARISTOTELES ES MORTAL 


..Introdujo un concepto lógico fundamental, “esta conclusión se deduce de esta/s 
premisa/s”. 

Desafortunadamente, los ordenadores no están automáticamente orientados 
según esta línea de pensamiento por el tipo de lenguajes de programación de 
uso más frecuente en el momento presente. Actualmente la mayoría de ellos, 
incluido el BASIC, son imperativos. Es decir, están construidos casi por comple- 
to a base de comandos que tienen que ser obedecidos por el ordenador (LET 
X=95: LET Y=2+X: PRINT Y). Un lenguaje imperativo no es el mejor 
lenguaje para escribir programas que imiten el pensamiento lógico. 
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Lenguajes declarativos 


Para ello necesitamos empezar a programar en lenguajes declarativos. En 
ellos, los programas se construyen a base de definiciones que describen la 
relación entre los elementos que el ordenador está manipulando. Cuando se 
ejecuta un programa imperativo, el ordenador sigue un número de órdenes, 
tomando decisiones del tipo IF/THEN, y luego da los resultados de su proceso. 
Al ejecutar un programa declarativo, el ordenador utiliza las definiciones para 
responder satisfactoriamente a una pregunta que versa sobre la relación entre 
elementos introducidos. La salida de tal programa es el vínculo que descubre. 

La mayoría de los lenguajes de ordenador que hoy se utilizan, tales como el 
BASIC y el FORTRAN, funcionan muy bien cuando la tarea a realizar es 
“lineal”, cuando la aproximación al problema requiere de un policía (la unidad 
central de proceso) que dirija el “tráfico del pensamiento” según una trayectoria 
bien definida. Pero tales aproximaciones no son adecuadas para las exigencias 
de la inteligencia artificial y de los sistemas expertos, donde un grupo de 
elementos necesitan poder relacionarse entre sí, libre y simultáneamente. 

Los trabajos que se están llevando a cabo en centros como el Japan 
Institute for New Generation Computer Technology y en el UK Alvey Pro- 
gramme se apartan de la línea recta Von Newman que ha seguido la resolución 
de problemas mediante ordenador, desde los años cuarenta. El ordenador de la 
quinta generación, en vez de ser un único procesador operando secuencialmen- 
te, parece que va a ser un grupo de procesadores trabajando en paralelo, cada 
uno de ellos ocupado en sus tareas independientes (pero relacionadas y acopla- 
das). Cada una de estas tareas es algo así como una subrutina de un programa 
principal, excepto que en vez de ser llamadas una a una, y solamente en 
ocasiones concretas durante la ejecución del programa, todos los “subprocesado- 
res” están, informan y reaccionan constantemente a las salidas de los otros 
procesadores. 

El trabajo de los equipos Alvey y japonés se han concentrado, en parte, en la 
utilización de lenguajes de programación descriptivos tales como el LISP (List 
Proccesing, Procesador de Listas) y sus derivados, como el PROLOG ( Program- 
ming in LOGIC, Programación Lógica) y el LOGO. En esta sección examinare- 
mos el LISP y el PROLOG (junto con otros dos lenguajes algo más simples 
—EASLE y HASTE— que desarrollé como introducciones al uso de lenguajes 
descriptivos o declarativos) y para cuando lleguemos al final de ella dispondrá 
de versiones para cada lenguaje para probarlas en su propio ordenador. 


LISP 


El LISP se remonta al año 1956, cuando se celebró en el Dartmouth College 
el primer seminario sobre inteligencia artificial Fue organizado por cuatro 
hombres, entre los que se incluía un joven profesor de matemáticas, John 
McCarthy. Los cuatro propusieron a la Rockefeller Foundation el proyecto de 
convocar una conferencia sobre la premisa de que cualquier característica de la 
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inteligencia podría ser descrita con la suficiente exactitud como para hacer 
posible que una máquina la simulara (McCorduck, 1979). 

Una de las ponencias de la conferencia, presentada por Herbert Simon, 
versó sobre un lenguaje para procesar listas (no demasiado elegante) que él 
había desarrollado, llamado IPL (Information Processing Language, Lenguaje 
para el Procesado de la Información). Chris Bidmead, escribiendo en la revista 
Practical Computing de octubre de 1984 (pág. 129), señaló que el IPL y la 
conferencia fueron la semilla que con el tiempo dieron a luz al LISP. “Sus (los 
del IPL) seudocódigos de bajo nivel y su sintaxis tipo assembler le sugirieron (a 
McCarthy) la idea de un lenguaje para el procesamiento de listas...” 

McCarthy utilizó las ideas de Simon (junto con las de algunos otros que 
trabajaban en este campo, entre los que se incluían Alan Newell, J. C. Shaw y 
Gelernter, de IBM) para desarrollar el LISP. En 1958 tenía acabada y en 
funcionamiento una versión (LISP 1) y a partir de ella desarrolló LISP 1.5, que 
es el precursor de la mayoría de los LISP que hoy se utilizan, incluyendo (por 
supuesto) el programa SSLISP del final de esta parte del libro. 

El LISP parte de dos tipos de datos: átomos y listas. Las listas se forman 
con átomos y/o otras listas. El LISP no utiliza programas como tales; en su 
lugar, evalúa listas. Para él los datos y los programas son, pues, lo mismo. Un 
programa en LISP se emplea pidiéndole que explore su base de datos en busca 
de una lista (o átomo) que cumpla ciertas condiciones. 


PROLOG 


PROLOG, el descendiente más vigoroso del LISP, utiliza en gran medida la 
falta de distinción entre datos y programa. Hasta cierto punto, un programa en 
PROLOG se compone de una base de datos formada por listas que pueden ser 
consultadas. 

Alain Colmerauer inventó el lenguaje en los primeros años de la década de 
los setenta, y fue inicialmente desarrollado en Marsella en 1972 por Colmerauer 
y Roussell, como un intérprete escrito en ALGOL-W. Al año siguiente se volvió 
a escribir en FORTRAN. La nueva versión era notablemente más eficiente y fue 
rápidamente difundida a través del mundo académico en Europa y Estados 
Unidos. En la década siguiente a la de su implementación, universidades e 
investigadores en inteligencia artificial desarrollaron gradualmente sus propias 
versiones del lenguaje. El DEC-10 PROLOG de la Universidad de Edimburgo, 
que fue” la primera versión que incorporó un compilador, es generalmente 
considerada como la implementación estándar del lenguaje. 

La popularidad del PROLOG se ha incrementado enormemente desde que 
los japoneses anunciaron que la utilización del lenguaje sería uno de los princi- 
pales elementos en su proyecto de inteligencia artificial quinta generación. 
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Micro-PROLOG 


Actualmente disponemos de muchas versiones de PROLOG. La primera de 
ellas, micro-PROLOG, fue escrita por Frank G. McCabe, en el Imperial Colle- 
ge de Londres, en la Logic Programming Unit. En 1982 apareció en Assembler 
Z80 para sistemas CP/M 2.2. Actualmente se puede conseguir para muchos 
ordenadores, incluyendo el IBM PC con sistema operativo MS-DOS o CP/M-86. 
La versión micro-PROLOG tiene una sintaxis mucho más sencilla compara- 
da con la de otras versiones tales como la DEC-10 de Edimburgo. No obstante, 
puede ser fácilmente ampliada por el usuario, y es lo suficientemente potente 
como para desarrollar con ella trabajos provechosos. 

Micro-PROLOG incluye un programa frontal llamado SIMPLE, con el que 
se trabaja con más facilidad que con el formato de listado tipo LISP que el 
mismo programa utiliza. A su debido tiempo, le proporcionaré un programa 
que emula al SIMPLE en micro-PROLOG, de forma que pueda aprender en 
cierta medida el lenguaje, sin tener que gastarse su dinero para comprarlo. 
Entonces estará preparado para decidir si está o no lo suficientemente interesa- 
do en el PROLOG como para que esté justificada la adquisición de un 
compilador para el lenguaje. 

Un programa PROLOG consta de una base de datos de hechos y reglas 
que podemos interrogar. Para “iniciarle” con suavidad en los lenguajes declara- 
tivos o descriptivos, he inventado un lenguaje primitivo. Bastará con que 
introduzca en su ordenador un programa relativamente corto para que pueda 
utilizar en él este lenguaje. Los conocimientos que adquiera con este lenguaje 
inicial —dado en el próximo capítulo— pueden ser aplicados en nuestra versión 
de SIMPLE que estudiaremos más adelante. 
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Pensando 
en HASTE 


Mi lenguaje se llama HASTE (de HaArtnell's Simple declarative TonguE, 
Lenguaje declarativo de HARTNELL). En HASTE se construye una base 
de datos introduciendo sentencias que contienen un asterisco que las divide de 
modo efectivo en sujetos y predicados. El ordenador acepta estas sentencias y a 
partir de ellas puede contestar preguntas y alcanzar conclusiones. Esto es fácil 
de comprender si observamos la siguiente muestra del funcionamiento de 
HASTE. En primer lugar, le daremos al ordenador una serie de hechos: 


> JUAN*ES UN HOMBRE 

> PEDROX*TEME AL LOBO >= 
> MARIAX*TEME AL LOBO a 
> PEDRO*XES UN HOMBRE Y) 
> MARIAXES UNA MUJER 

> PEDRO*TREPA ARBOLES en 

> MARIA*TREPA ARBOLES 0 
> UN DURO*SON CINCO PESETAS lo) 
> UNA LIBRA*SON CIEN PENIQUES 

> PEDROXMIDE DOS METROS 

> PEDRO*ES MAYOR DE EDAD == 
> PEDROXES UN EXPERTO EN ORDENADORES [5 
> MARIA*ES UN EXPEXTO EN ORDENADORES EA 
> MARIA*MIDE TRES METROS 
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Observe el lugar donde queda emplazado el asterisco, precediendo directa- 
mente al verbo y tomando el lugar del espacio que normalmente aparecería en 
esa posición. 

Para consultar la base de datos, se introduce un signo de interrogación una 
vez que el indicativo > aparece. Si quiere comprobar si un hecho particular 
está o no soportado por HASTE, se introduce el enunciado que queremos 
comprobar a continuación del signo de interrogación. El programa contesta con 
VERDAD o FALSO seguido de la línea FIN DE LA RESPUESTA para 
indicarle que la información que ha escrito es todo lo que puede darle como 
respuesta a esa pregunta. 

Seguidamente haremos una comprobación para ver si HASTE ha aprendido 
algo sobre ciertos temas: 


r Y > ?PEDRO*ES UN HOMBRE 
Y CIERTO 
— > FIN DE CONTESTACION < 


> ?PEDRO*TEME AL LOBO 
a CIERTO 
Mia > FIN DE CONTESTACION < 


Si deseamos conocer lo que HASTE sabe en relación a un tema particular, 
sustituimos en la línea de interrogación la información que queremos que nos 
suministre por un signo /. Seguidamente, HASTE nos revela todo lo que sabe 
en relación a PEDRO (dado que la pregunta, en definitiva, es “Dame todos los 
predicados que se refieren al sujeto PEDRO”): 


==] > ?PEDRO*/ 
20 TEME AL LOBO 
¡E ES UN HOMBRE 
TREPA ARBOLES 
MIDE DOS METROS 
AM ES MAYOR DE EDAD 
E ES UN EXPERTO EN ORDENADORES 


> FIN DE CONTESTACION < 


L 


También podemos darle el predicado del enunciado, y HASTE nos dará 
todos los sujetos que tiene tal predicado: 


> 2/*TEME AL LOBO 


ES] PEDRO 
¡PA MARIA 
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2 FIN DE CONTESTACION < 


> 2UN DUROx*/ AS 
SON CINCO PESETAS de 
> FIN DE CONTESTACION < —? 


Confío que practicando con este lenguaje limitado se haga una idea de cómo 
los lenguajes declarativos que pueden ser interrogados, pueden actuar como 
sistemas expertos de gran alcance. 

Más útil que las formas anteriores de consultar es aquella según la cual el 
ordenador tiene que comprobar la veracidad de dos sentencias y suministrar 
información que satisfaga ambas condiciones. La siguiente pregunta, que utiliza 
un AND, pide a HASTE “¿Qué sujeto(s) tiene(n) miedo del lobo AND es un 
hombre?”: 


> ?2/%*TEME AL LOBO Y /*ES UN HOMBRE FER] 
PEDRO (E 


> FIN DE CONTESTACION < LL) 


O, “¿Qué sujeto(s) trepa(n) a los árboles AND es un experto en infor- 
mática?”: 


> ?/X%TEME AL LOBO Y /*ES UN EXFERTO E 


N ORDENADORES PAN 
PEDRO lo) 
MARIA 
> FIN DE CONTESTACION < 
Para algunas preguntas, no hay contestación: 
> ?/*TREPA ARBOLES Y /%SON CIEN PENIO PSA 
e ele 
> FIN DE CONTESTACION < ——— 


Si HASTE fuera, por ejemplo, un sistema experto médico, le podríamos 
preguntar “¿Qué sujeto (enfermedad) produce granos y aparece en niños de 
menos de cuatro años?”. La información que el sistema experto HASTE utiliza- 
ría, tendría que haber sido introducida en castellano corriente (aparte del 
asterisco). Esta es una de las ventajas reales de los lenguajes declarativos. 
Permiten utilizar el lenguaje natural (con algunas restricciones, por supuesto) 
para realizar las entradas y responde de una manera directa. 

Si se desea descubrir todo lo que el sistema HASTE sabe en un momento 
dado, introducimos una / a cada lado del asterisco: 


> 21%! == 
JUAN*ES UN HOMBRE Es 
PEDRO*TEME AL LOBO a, 
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MARIA*+TEME AL LOBO 

PEDRO*ES UN HOMBRE 

MARIA*ES UNA MUJER 

PEDRO*TREPA ARBOLES 

MARIA*TREPA ARBOLES 

UN DURO*SON CINCO PESETAS 

UNA LIBRA*XSON CIEN PENIQUES 
PEDRO*MIDE DOS METROS 

PEDRO*ES MAYOR DE EDAD 

PEDRO*XES UN EXPERTO EN ORDENADORES 
MARIAXES UN EXPERTO EN ORDENADORES 
MARIA*MIDE TRES METROS 


Seguidamente aparecen los resultados de unas cuantas preguntas más: 


> ?MARIAX/ 
TEME AL LOBO 
ES UNA MUJER 
TREPA ARBOLES 
ES UN EXPERTO EN ORDENADORES 
MIDE TRES METROS 
> FIN DE CONTESTACION < 


1) 


> ?JUAN+*/ 
ES UN HOMBRE 
> FIN DE CONTESTACION < 


are 


> ?PEDRO*/ 
TEME AL LOBO 
ES UN HOMBRE 
TREPA ARBOLES 
MIDE DOS METROS 
ES MAYOR DE EDAD 
ES UN EXPERTO EN ORDENADORES 
> FIN DE CONTESTACION < 


000 


Antes de darle un listado de HASTE para que pueda experimentar su poder 
por sí mismo, vamos a dar un resumen de las normas de funcionamiento: 


1. Todas las entradas tienen la forma de una sentencia, con un asterisco 
colocado entre el sujeto y el predicado. 

2. Se interroga a la base de datos precediendo nuestra pregunta con un 
signo de interrogación. 


bh 
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3. 


Para comprobar si HASTE sabe algo sobre un hecho, introducimos el 
hecho precedido por un signo de interrogación. Contestará “VERDAD 
(lo sabe) o FALSO (no lo sabe)”. 

Una barra (/) sustituye en otras preguntas a la parte de la sentencia que 
deseamos que el programa nos conteste. Esto quiere decir que ?/*EL 
PADRE DE JULIO obtendrá como respuesta algo así como JUAN 
ES;?/x/ hará que se escriba toda la base de datos; y ?JUAN ESx/ 
obtendrá como respuesta algo así como EL PADRE DE JULIO. 
La base de datos responde también a preguntas con AND dando 
respuestas para las cuales ambos enunciados son verdad, así ?JUAN/x 
AND EL PADRE/x nos devolverá toda la información que es verdad 
para ambos, JUAN y EL PADRE. 


Como verá al analizar el listado, HASTE hace funcionar su magia manejan- 


do tan 


sólo los elementos de una pareja de matrices. Podemos almacenar en la 


base de datos hasta 255 hechos. A continuación viene el listado: 





REM HASTE 
20 DIM A$ (255), B$ (255) 
30 F=0:KEYOFF:CLS 
40 REM dd 1 II III IRENE 
50 FL=0 
60 PRINT "> "3:LINE INPUT D$ 
70 1F D$="" THEN END 
80 IF LEFT$(D$,1)="?2" THEN 200 
90 E=0 
100 E=E+1 
110 IF MID$(D$,E,1)="x" THEN 140 
120 IF E< LEN(D$) THEN 100 
130 PRINT " ENTRADA INVALIDA; NO OPER 
ABLE":GOTO 50 
140 IF FL=3 THEN RETURN 
150 F=F+1: 1F F=256 THEN END 
160 A$ (F)=LEFT+$ (D$, E-—1) 
170 B$(F)=MID$(D+$,E+1) 
180 GOTO 350 
190 REM 4364943635 
200 REM — INTERROGATORIO 
210 FL=4: TR=0 
220 IF RIGHTS (D$,1)="/" THEN FL=3 
230 FOR J=1 TO LEN (D$)-5 
240 IF MID$(D$,J,5)=" Y " THEN FL=5:T 
R=J 
250 NEXT J 
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260 IF FL=5 THEN 410 

270 IF LEFTS$(D$,3)="2?/x*" THEN FL=1 
280 1F LEFT$(D$,4)="2/%/" THEN FL=2 
290 IF FL=3 THEN GOSUB 90:F$=MID$(D$, 
2,E-2) 

300 1F FL=1 THEN F$=MID$(D+, 4) 

310 E=0 

320 E=E+1 

330 IF A$(E)="" AND FL=4 AND TR=0 THE 
N PRINT " FALSO" 

340 IF A$(E)="" THEN 520 

350 IF FL=4 AND “2"+A$(E)+"x"+B$(E)=D 
$ THEN PRINT " CIERTO": TR=1 

360 IF FL=3 AND F$=A$(E) THEN PRINT B 
$(E) 

370 IF FL=2 THEN PRINT A$(E)53"*"3B$(E 
) 

380 IF Fl=1 AND F$=B$(E) THEN PRINT A 
$(E) 

390 IF E<255 THEN 320 

400 REM III IE IE IE TE IE E E IE EE E 

410 F$=MID$(D$, 4, TR-4) :G$=MIDS (DS, TR+ 
7) 

420 E=0 

430 E=E+1 

440 IF A$(E)="" THEN 520 

450 IF B$(E)=F$ THEN 470 

460 IF E<255 THEN 430 

470 H=0 

480 H=H+1 

490 IF B$(H)="" THEN 460 

500 IF B$(H)=G$ AND A$(E)=A$(H) THEN 
PRINT A$(E) 

510 IF H<255 THEN 480 

520 PRINT TAB(5)5" > FIN DE CONTESTAC 
ION < " 

530 GOTO 50 


O 
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Pira 


AS 


SEN 


“y 
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Una experiencia 
con PROLOG 


Ahora que hemos adquirido algo de experiencia en la forma de trabajar con 
un lenguaje declarativo, podemos avanzar hasta el PROLOG. El programa que 
le voy a dar le permitirá ejecutar a su ordenador una versión restringida del 
programa frontal del PROLOG, SIMPLE. La he llamado PROLOG-A (que 
viene de PROLOG-Almost, es decir, PROLOG aproximado). 

A pesar de que debería ser capaz de aprender una gran cantidad de cosas 
relativas al PROLOG con sólo leer esta parte del libro, y con experimentar con 
el programa, no se pretende que sea un verdadero manual del lenguaje. No 
obstante, si toma un libro sobre PROLOG o sobre micro-PROLOG, se dará 
cuenta de que puede utilizar el programa dado aquí, en conjunción con su libro, 
para aprender los fundamentos de manejo del frontal SIMPLE del lenguaje. 

Antes de analizar el PROLOG-A, veremos a continuación una muestra del 
programa PROLOG funcionando sobre un compilador completo (lo que quede 
encerrado entre /*...*/ es comentario, lo mismo que una sentencia REM en un 
programa de BASIC). 


/' úna base de datos día/noche */ 


búho es-un nocturno 
murciélago es-un nocturno 
gato es-un diurno 

perro es-un diurno 
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/* reglas */ 


X es-un durmiente-diurno si X es-nocturno 
X es-un durmiente-nocturno si X es-diurno 


X combate Y si X es-un durmiente-diurno 
e Y es-un durmiente-nocturno 


Como observará, hemos establecido unos hechos iniciales, utilizando la for- 
ma es-un. Á continuación, le hemos dado al ordenador algunas reglas que los 
relacionan. Ahora podemos hacer preguntas al ordenador como éstas: 


Es (búho es-un durmiente-diurno) 
SI 


cuál((XY): X combate Y) 
respuesta es (gato búho) 
respuesta es (gato murciélago) 
respuesta es (perro búho) 
respuesta es (perro murciélago) 


Vemos aquí que el ordenador utiliza las reglas que se le han dado para 
responder a las preguntas. Esto es, fundamentalmente, lo que hace un sistema 
experto. Es fácil reconocer a PROLOG como un lenguaje que parece construi- 
do ex profeso para la realización de sistemas expertos. 

Puede resultar incluso más útil el pedir a un programa PROLOG que nos 
explique cómo ha llegado a sus conclusiones: 


es (gato combate búho) 
SI 


por qué (gato combate búho) 
(gato combate búho) dado que 
(gato es-un durmiente-nocturno) dado que 
(gato es-un diurno) y 
(diurno es-un durmiente-nocturno) 
(búho es-un durmiente-diurno) dado que 
(búho es-un nocturno) y 
(nocturno es-un durmiente-diurno) 


(durmiente-nocturno combate durmiente-diurno) conclusión 


Como puede ver, PROLOG es bastante más complejo que HASTE, aunque 
en definitiva son miembros de la misma familia de lenguajes. Confío en que sus 
experiencias con HASTE le hayan facilitado la comprensión de las muestras de 
PROLOG que acabamos de observar. 

Ahora podemos ver cómo funciona PROLOG-A. 
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El ejemplo de los marcianos 


Comenzamos, al igual que hicimos con HASTE, introduciendo hechos en la 
base de datos. En PROLOG-A el indicativo es é.; el punto es un indicativo 
para el ordenador que está explorando el teclado, en espera de una entrada. 
Conseguimos que el programa añada hechos a su base de datos mediante un 
comando muy adecuado, METE. Mientras que en HASTE lo que introducía- 
mos se componía de dos partes, un sujeto y un predicado (que incluía un 
verbo), en PROLOG-A el material introducido consta de tres partes: 


Un sujeto (tal como FELIPE). 
Una relación (tal como ES-EL-PADRE-DE). 
Otro sujeto o hecho (tal como ALFONSO). 


Mn —= 


Tal como vemos, según el número 2 anterior, en cada sección las palabras se 
unen mediante guiones. Las secciones se separan entre sí mediante espacios. 
Tanto los espacios como los guiones son muy importantes. 

Digámosle al programa unas cuantas cosas: 


2%. METE(ZAPA ES-UN MARCIANO) 


a] 
£.. METE(ERON ES-UN MARCIANO) (24) 
2. METE(MAIZ ES-UN VEGETAL) 
== 
£.METE(AGUA ES-UN LIQUIDO) Au 
¿A 
2. METE (LIQUIDO ES-UN BREBAJE) 
2.METE(LASER ES-UN ARMA) un 
sol] 


€. METE(YPRUS ES-UN MARCIANO) 


Podemos determinar lo que sabe mediante el comando LISTA TODO, que 
simplemente le dice a PROLOG que liste todos los hechos que contiene su base 
de datos: 


X%.LISTA TODO 

AN 
ZAPA ES-UN MARCIANO KN 
ERON ES-UN MARCIANO _—) 
MAIZ ES-UN VEGETAL 
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== PBUA ES-UN LIQUIDO 
LIQUIDO ES-UN BREBAJE 

8 LASER ES-UN ARMA 
YPRUS ES-UN MARCIANO 


Ahora llegamos a la parte de PROLOG verdaderamente excitante, donde 
vemos una habilidad que HASTE no poseía. Es su capacidad para combinar 
por sí misma diferentes entradas para añadir nuevas informaciones a su base de 
datos. Hasta ahora, solamente le hemos dado hechos, que ha almacenado 
debidamente. Ahora le enseñaremos algunas reglas que relacionan algunos de 
ellos. 

Aquí viene la primera regla: 


«.METE(X ES VISCOSO SI X ES-UN BREBAJ 


O * 
¡A INTERPRETANDO LA REGLA 
> LIQUIDO ES VISCOSO 


Esto le dice que un objeto (X es una variable en PROLOG) ES ALIMEN- 
TO si ese objeto ES-UNA BEBIDA. El programa nos dice que compila la 
regla, y escribe todo lo que ha añadido a su base de datos como resultado de 
aplicar esa regla a los hechos que conoce. Le damos una segunda regla: 


*.METE(X ES VISCOSO SI X ES-UN VEGETA 


des 
lo) INTERPRETANDO LA REGLA 
> MAIZ ES VISCOSO 


Como dije en el párrafo anterior, X es una variable en PROLOG. Micro- 
PROLOG utiliza variables, X, Y, Z, x, y, z, pero nosotros nos quedaremos sólo 
con X e Y. Las variables son como cajas vacías en las que podemos colocar los 
contenidos apropiados. No podemos utilizar un nombre de la base de datos 
como nombre de una variable (así, no podemos llamar X a uno de nuestros 
marcianos, o el programa incurriría en grandes confusiones). 

Seguidamente le pedimos a PROLOG-A que nos diga todo lo que sabe que 
incluya la relación ES (que es, como advertirá, muy distinta de la relación 
ES-UN): 


== £.LISTA ES 
EA LIQUIDO ES VISCOSO 
ÍZZY MAIZ ES VISCOSO 
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Y así continuamos, dejando que PROLOG-A construya su bagaje de hechos 
relacionados con el universo en el que será un experto. 


X«.METE(X HABLA MARCIANO SI X ES-UN MA 
RCIANO) 
INTERPRETANDO LA REGLA 
> ZAPA HABLA MARCIANO 
> ERON HABLA MARCIANO 
> YPRUS HABLA MARCIANO 


El PROLOG tiene también la posibilidad de compilar reglas que relacionan 
a más de una variable: 


«.METE(X PROGRAMA-SU Z SI X HABLA MAR 
CIANO Y Z ES-UN ARMA) 
INTERPRETANDO LA REGLA 
> ZAPA PROGRAMA SU LASER 
> ERON PROGRAMA SU LASER 
> YPRUS PROGRAMA SU LASER 


Jo 


Aquí se le ha comunicado al programa una relación (PROGRAMA-SU 
entre las variables X y Z, que existe si X HABLA MARCIANO y Z ES-UN 
ARMA. 

Conforme avanzamos, adiestrando gradualmente a PROLOG-A para que 
actúe como un sistema experto en el dominio especificado de Marte, sus 
habitantes y estilo de vida, podemos comprobar lo que está aprendiendo. ¿Sabe, 
por ejemplo, que las pistolas laser son peligrosas? 


— 


L.ES(LASER ES PELIGROSO) 
NO 


1] 


No lo sabe, así que decidimos enseñarle: 


%.METE(X ES PELIGROSO SI X ES-UN ARMA 
) 

INTERPRETANDO LA REGLA 
> LASER ES PELIGROSO 


$ 


Hacemos una comprobación para ver si ha aprendido la lección (utilizando 
un ES para indicarle que le estamos formulando una pregunta). 


AA 
%.ES (LASER ES PELIGROSO) Pz 


sI A, 
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Podemos aprender mucho interrogando a la base de datos. Le podemos 
hacer preguntas en función de relaciones: 


£.LISTA HABLA 
P] ZAPA HABLA MARCIANO 
LJ) ERON HABLA MARCIANO 

YPRUS HABLA MARCIANO 


O, como con HASTE, podemos utilizar variables en la pregunta, mediante 
el comando CUAL: 


2. CUAL(X : X ES-UN MARCIANO) 
ERON 

— YPRUS 
NO HAY (MAS) RESPUESTAS 


Aquí pedimos CUAL sujeto es tal que resulta verdad decir que tal sujeto 
ES-UN MARCIANO. Tenga en cuenta los espacios en la forma interrogativa. 
Son vitales para el funcionamiento satisfactorio de PROLOG-A. No es preciso 
que nos restrinjamos a una única variable: 


2.CUAL((X Z) : X ES-UN Z) 
A] ZAPA MARCIANO 
E ERON MARCIANO 
MAIZ VEGETAL 
AGUA LIQUIDO 
LIQUIDO BREBAJE 
EA LASER ARMA 
A YPRUS MARCIANO 
NO HAY (MAS) RESPUESTAS 


Esta pregunta dice, en efecto, CUAL dos cosas (X e Y) son tales que se 
relacionan mediante ES-UN. Observe que PROLOG-A escribe los valores de 
X e Y que encuentra sin escribir también la relación. Además, observe que (como 
en el ejemplo anterior) las respuestas de PROLOG-A finalizan con la frase NO 
HAY (MAS) RESPUESTAS para indicar que nos ha dado toda la información 
que puede sobre esa pregunta. 

La última habilidad que PROLOG-A posee es la de ser capaz de compilar 
reglas en las que hay dos variables. Veremos que PROLOG-A, a pesar de su 
inteligencia, no puede trabajar con información que no posee: 


%.METE(X BEBE Z SI X HABLA MARCIANO Y 
= Z ES-UN BREBAJE) 
UN > ZAPA BEBE LIQUIDO) 
A, > ERON BEBE LIQUIDO) 
> YPRUS BEBE LIQUIDO) 
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X.LISTA ES-UN 


ZAPA ES-UN MARCIANO 
ERON ES-UN MARCIANO 
MAIZ ES-UN VEGETAL 
AGUA ES-UN LIQUIDO 
LIQUIDO ES-UN BREBAJE 
LASER ES-UN ARMA 
YPRUS ES-UN MARCIANO 


2%. METE(X SE-SIENTE-MAL-COMIENDO Z SI 
X HABLA MARCIANO Y Z ES-UN VEGETAL) 
> ZAPA SE-SIENTE-MAL-COMIENDO MAIZ 
> ERON SE-SIENTE-MAL-COMIENDO MAIZ 
?> YFERUS SE-SIENTE-MAL-COMIENDO MAIZ 


Familias felices 


La demostración anterior era meramente instructiva y de entretenimiento, 
por lo que su dominio, Marte, era totalmente imaginario y sus relaciones 
estaban ideadas para mostrar el funcionamiento de PROLOG-A. Para demos- 
trar que hay cosas más reales que la vida en Marte, observaremos una base de 


datos “verdadera”, mucho más próxima a la Tierra. 


Vamos a enseñarle a nuestro programa el siguiente árbol familiar: 


MARIA JOSE ANA ALFREDO JUANA JORGE ISABEL FRANCISCO SILVIA FERNANDO ROSA FELIX 


ROBERTO 


DAVID 


+ 


GUILLERMO MAR 


E 


ROCIO. ALBERTO 
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Comenzamos con la primera generación: 


Y. METE(MARIA MADRE-DE JUAN) 


2%. METE(JOSE PADRE-DE JUAN) 


ñ 


2%. METE(ANA MADRE-DE TERESA) 
£.METE(ALFREDO PADRE-DE TERESA) 
%. METE (JUANA MADRE-DE LUIS) 


%.METE (JORGE PADRE-DE LUIS) 


OO 


%. METE (SILVIA MADRE-DE GUILLERMO) 
%. METE (FERNANDO PADRE-DE GUILLERMO) 


%. METE(ISABEL MADRE-DE MARTA) 


a 


%.METE (FRANCISCO PADRE-DE MARTA) 


2.METE(ROSA MADRE-DE MAR) 


) 


%. METE (FELIX PADRE-DE MAR) 


Hacemos una comprobación para ver lo que en este momento sabe ya 
PROLOG-A: 


4%. LISTA TODO 


MARIA MADRE-DE JUAN 

JOSE PADRE-DE JUAN 

ANA MADRE-DE TERESA 
ALFREDO PADRE-DE TERESA 
JUANA MADRE-DE LUIS 

JORGE PADRE-DE LUIS 
SILVIA MADRE-DE GUILLERMO 
FERNANDO PADRE-DE GUILLERMO 
ISABEL MADRE-DE MARTA 
FRANCISCO FADRE-DE MARTA 
ROSA MADRE-DE MAR 

FELIX PADRE-DE MAR 
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Añadimos unas cuantas ramas más a la base de datos del árbol familiar: 


4%. METE (TERESA MADRE-DE CRISTINA) 
2.METE(JUAN PADRE-DE CRISTINA) 
2%. METE (MARTA MADRE-DE GERARDO) 
%. METE(LUIS PADRE-DE GERARDO) 

% . METE (MAR MADRE-DE ROCIO) 

2%. METE (GUILLERMO PADRE-DE ROCIO 
METE (MAR MADRE-DE ALBERTO) 

%. METE(GUILLERMO PADRE-DE ALBERTO) 
£.METE(ROCIO MADRE-DE ROBERTO) 
%. METE(GERARDO PADRE-DE ROBERTO) 
8%. METE(CRISTINA MADRE-DE DAVID) 


2%. METE(ALBERTO PADRE-DE DAVID) 


En el dominio relativo a los marcianos, las relaciones eran del tipo ES-UN 
o BEBE. En esta segunda base de datos, tenemos PADRE-DE y MADRE-DE, 
lo que significa que podemos pedir, por ejemplo, todas las MADRE-DE que 


contiene: 


X%.LISTA MADRE-DE 

MARIA MADRE-DE JUAN 

ANA MADRE-DE TERESA 
JUANA MADRE-DE LUIS 
ISABEL MADRE-DE MARTA 
SILVIA MADRE_DE GUILLERMO 
ROSA MADRE-DE MAR 

TERESA MADRE-DE CRISTINA 
MARTA MADRE-DE GERARDO 
MAR MADRE-DE ROCIO 

MAR MADRE-DE ALBERTO 
ROCIO MADRE-DE ROBERTO 
CRISTINA MADRE-DE DAVID 
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Podemos comprobar también los PADRE-DE: 


2%.LISTA PADRE-DE 

JOSE PADRE-DE JUAN 

ALFREDO PADRE-DE TERESA 
JORGE PADRE-DE LUIS 
FRANCISCO FPADRE-DE MARTA 
FERNANDO PADRE-DE GUILLERMO 
FELIX PADRE-DE MAR 

JUAN PADRE-DE CRISTINA 
LUIS PADRE-DE GERARDO 
GUILLERMO PADRE-DE ROCIO 
GUILLERMO PADRE-DE ALBERTO 
GERARDO PADRE-DE ROBERTO 
ALBERTO PADRE-DE DAVID 


La pregunta más simple que podemos formular a PROLOG-A es aquella 
que comprueba si un hecho es o no verdad: 


%. ES(CRISTINA MADRE-DE LUIS) 
NO 


1] 


%.ES(LUIS PADRE-DE GERARDO) 
s1 


Y% . ES(JUANA MADRE-DE MAR) 
NO 


A 


Tengamos en cuenta que, al igual que con los marcianos, PROLOG-A 
responde un SI o un NO. Nuestra última pregunta era si Juana era la madre de 
Mar. PROLOG-A nos dice que no. Por tanto, es razonable que pudiéramos 
preguntarle quién es la madre de Mar. 


Y %«.CUAL(X : X MADRE-DE MAR) 
ROSA 
NO HAY (MAS) RESPUESTAS 


E 


Esta pregunta, lo mismo que algunas que vimos en el ejemplo de Marte, 
está realmente preguntando “¿Cuál X es tal que X es la MADRE-DE MAR?”. 
Los padres admiten el mismo tratamiento: 


7 2. CUAL(X : X PADRE-DE JUAN) 
O E 
AP NO HAY (MAS) RESPUESTAS 
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z) 


Podemos ahora formular una pregunta que utilice dos variables, para hallar 
los nombres de todas las MADRES-DE en el universo del conocimiento de 


PROLOG-A: 


2% .CUAL((X Z) : X MADRE-DE 
MARIA JUAN 

ANA TERESA 

JUANA LUIS 

ISABEL MARTA 

SILVIA GUILLERMO 

ROSA MAR 

TERESA CRISTINA 

MARTA GERARDO 

MAR ROCIO 

MAR ALBERTO 

ROCIO ROBERTO 

CRISTINA DAVID 

NO HAY (MAS) RESPUESTAS 


z) 


Hasta el momento hemos utilizado la relación MADRE-DE y PADRE-DE. 
Creo que es el momento de hablarle a PROLOG-A de parientes (padre o 


madre): 


JUAN PARIENTE-DE CRISTINA 
LUIS PARIENTE-DE GERARDO 


GUILLERMO PARIENTE-DE ROCIO 
GERARDO PARIENTE-DE ROBERTO 
GUILLERMO FARIENTE-DE ALBERTO 


ALBERTO PARIENTE-DE DAVID 


Pero, un momento. ¿Por qué nos tomamos la molestia de introducir en 
nuestro programa todos los PARIENTE-DE sabiendo que alguien es pariente 
si es madre? Dejemos que haga el trabajo nuestro programa, mediante una 


regla: 


%. METE (X PARIENTE-DE Z SI 
INTERPRETANDO LA 

> MARIA PARIENTE-DE JIJAN 
INTERPRETANDO LA 
INTERPRETANDO LA 

> ANA PARIENTE-DE TERESA 
INTERPRETANDO LA 
INTERPRETANDO LA 


MADRE-DE Z) 
REGLA 


REGLA 
REGLA 


REGLA 
REGLA 


20 


129 


> JUANA PARIENTE-DE LUIS 
INTERPRETANDO LA REGLA 
INTERPRETANDO LA REGLA 

> ISABEL PARIENTE-DE MARTA 
INTERPRETANDO LA REGLA 


T 


Le proporcionamos al programa una regla similar referida a los padres, y 
hacemos una comprobación para ver lo que PROLOG-A ha incorporado a su 
base de datos al utilizar estas reglas: 


2.LISTA TODO 


1) 
ol 


MARIA MADRE-—DE JUAN 

JOSE PADRE-DE JUAN 

ANA MADRE-DE TERESA 
ALFREDO PADRE-DE TERESA 
JUANA MADRE-DE LUIS 

JORGE FADRE-DE LUIS 

ISABEL MADRE-DE MARTA 
FRANCISCO PADRE-DE MARTA 
SILVIA MADRE-DE GUILLERMO 
FERNANDO PADRE-DE GUILLERMO 
ROSA MADRE-DE MAR 

FELIX PADRE-DE MAR 

TERESA MADRE-DE CRISTINA 
JUAN PADRE-DE CRISTINA 
MARTA MADRE-DE GERARDO 
LUIS PADRE-DE GERARDO 

MAR MADRE-DE ROCIO 
GUILLERMO PADRE-DE ROCIO 
MAR MADRE-DE ALBERTO 
GUILLERMO FADRE-DE ALBERTO 
ROCIO MADRE-DE ROBERTO 
GERARDO PADRE-DE ROBERTO 
CRISTINA MADRE-DE DAVID 
ALBERTO PADRE-DE DAVID 
JOSE PARIENTE-DE JUAN 
ALFREDO PARIENTE-DE TERESA 
JORGE PARIENTE-DE LUIS 
FRANCISCO PARIENTE-DE MARTA 
FERNANDO PARIENTE-DE GUTLLERMO 
FELIX PARIENTE-DE MAR 

JUAN PARIENTE-DE CRISTINA 
LUIS PARIENTE-DE GERARDO 


803 


30 


b 


GUILLERMO FARIENTE-DE ROCIO 
GUILLERMO PARIENTE-DE ALBERTO 
GERARDO PARIENTE-DE ROBERTO 
ALBERTO PARIENTE-DE DAVID 
MARIA PARIENTE-DE JUAN 

ANA PARIENTE-DE TERESA 

JUANA PARIENTE-DE LUIS 
ISABEL PARIENTE-DE MARTA 
SILVIA PARIENTE-DE GUILLERMO 
ROSA PARIENTE-DE MAR 

TERESA PARIENTE-DE CRISTINA 
MARTA PARIENTE-DE GERARDO 
MAR PARIENTE-DE ROCIO 

MAR PARIENTE-DE ALBERTO 
ROCIO PARIENTE-DE ROBERTO 
CRISTINA PARIENTE-DE DAVID 


Podemos introducirle otras relaciones, logrando así que nuestro sistema se 
convierta verdaderamente en un experto en lo que se refiere al árbol familiar de 
David: 


%. METE (X CONOCE-A Z SI X MADRE-DE ROB 

ERTO Y Z PADRE-DE DAVID) 
INTERFRETANDO LA REGLA 

> ROCIO CONOCE-A ALBERTO 


$ 


Seguidamente decimos a PROLOG-A que MARIA ESTA CASADO-CON 
JOSE y le revelamos el siguiente secreto: 


%.METE(X CONYUGE-DE Y SI X CASADO-CON 
7) 


E 


INTERFRETANDO LA REGLA 

INTERPRETANDO LA REGLA 

INTERPRETANDO LA REGLA 
> MARIA CONYUGE-DE JOSE 


) 


Nuestra base de datos continúa creciendo conforme aumenta el saber de 
PROLOG-A: 


Y .METE(X CASADO-CON Z Si X FADRE-DE L 
UIS Y Z MADRE-DE LUIS) 

INTERPRETANDO LA REGLA 
> JORGE CASADO-CON JUANA 


1) 
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Nuestro sistema es únicamente un sistema experto si podemos recuperar 
información de su base de datos. Podemos formular preguntas cortas y directas 
sobre un individuo: 


. LES(GUILLERMO PADRE-DE ROCIO) 


a 


SI 
e. .CUAL(X : JOSE PADRE-DE X) 


JUAN 
NO HAY (MAS) RESPUESTAS 


1) 


O comprobar grupos relacionados: 


2%. CUAL((X Z) : X PADRE-DE Z) 


1) 


JOSE JUAN 
ALFREDO TERESA 
JORGE LUIS 
FRANCISCO MARTA 
FERNANDO GUILLERMO 
JUAN CRISTINA 
LUIS GERARDO 
GUILLERMO ROCIO 
GUILLERMO ALBERTO 
GERARDO ROBERTO 
ALBERTO DAVID 

NO HAY (MAS) RESPUESTAS 


UNS 


%.CUAL((X Z) 2: X HIJO-DE Z) 
JUAN MARIA 

JUAN JOSE 

NO HAY (MAS) RESPUESTAS 


pa 


Jugando al juego de los números 


Tal como veremos a continuación, PROLOG-A dispone tanto de habilida- 
des textuales como numéricas: 


%. ES(SUMA (12 13 23)) 
sI 


7 


32 


md 


Aquí le preguntamos al programa si la suma de los dos primeros números 
(12 y 13) es igual al tercero. Seguidamente vienen tres ejemplos más: 


%..ES(SUMA(12 14 20)) 

NO e 
ls) 

€. ES(SUMA(5.4 -B -6.3)) 

NO 


FAA] 
R. ES(SUMA(-7 -9 -16)) [A 
SI (A, 


Esto tiene un uso limitado. No obstante, podemos utilizar SUMA para 
hallar valores desconocidos. Primeramente, sumaremos dos números: 


2.CUAL(X : SUMA(5.4 -8 X)) 
E a 
NO HAY (MAS) RESPUESTAS sa] 


Aquí tenemos la conocida forma “¿Cuál X es tal que resulta cierto que es 
igual a 12 más 32?”. Alternativamente, podemos interrogar a PROLOG-A de la 
siguiente manera: “¿Cuál X, al sumarlo a un número conocido nos da un 
resultado también conocido?” 


Y. CUAL(X : SUMA(X 4 7.98)) FAA] 
sE me 
NO HAY (MAS) RESPUESTAS _—Y) 


Colocando la incógnita en una posición diferente se consigue que PROLOG-A 
haga restas: 


2%. CUAL(X : SUMA(123 X -98)) == 
-221 E 
NO HAY (MAS) RESPUESTAS == 


Lo anterior equivale a preguntar “¿Cuál X es el resultado de restar el 
segundo número del primero?” 
PROLOG-A también puede comprobar si un número es o no entero: 


A 
€.ES(23 ENT) EN 
s1 LJ 
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E: %.ES(-458 ENT) 
sI 
ES 


2.ES(8.7 ENT) 
NO 


pS 
[) £.ES(3895 ENT) 


SI 


También se le puede pedir que nos dé la parte entera de un número 
expresado en coma flotante: 


X.CUAL(X 2: 12.67 ENT X) 


— %.CUAL(X : -8884.34 ENT Xx) 


-8885 


VECES se utiliza de forma similar a SUMA: 


«.ES(VECES(9 3 27)) 


as 
¡UN —)) Y. ES(VECES (27 3 99)) 


NO 
(EA %.CUAL((X : VECES(12 76 X)) 
lu) 912 


NO HAY (MAS) RESPUESTAS 


Al igual que SUMA se podía utilizar para restar, VECES puede utilizarse 
para dividir. La colocación de X en la primera o segunda posición da el mismo 
resultado: 


Al Y. CUAL(X : VECES(12 X 76)) 
6. 33 
A, 


NO HAY (MAS) RESPUESTAS 


as Y. CUAL(X : VECES(X 12 76)) 
15 6. 3333 
Ll NO HAY (MAS) RESPUESTAS 


Aquí, PROLOG-A responde a la pregunta “¿Cuál X es tal que X es igual a 
76 dividido por 12?” 

El programa puede comparar la magnitud de números (y también la posi- 
ción relativa de palabras, considerando como “menores que” a las que vienen 
primero según orden alfabético): 


2.ES(123 MENOR 98) 
NO 


e 
ES) 


«.ES(66 MENOR 144) 
NO 


1 
laa) 


%.ES(YUYU MENOR DEDO) 
NO 


%.ES(HOLA MENOR ADIOS) 
NO 


5 


e .ES(ESTO MENOR POR) 
NO 


| 
A, 


2.ES(A MENOR B) 
SI 


8. ES(CORTO MENOR CORTISIMO) 
sI 


L) 


De lo anterior deducirá que el trabajar con matemáticas en PROLOG-A no 
es nada fácil. PROLOG-A (y el LISP) no fueron diseñados en realidad para el 
trabajo matemático, aunque se tuvo en cuenta la realización de algunas opera- 
ciones matemáticas, y su sintaxis sigue la sintaxis del “proceso de listas”, que es 
la verdadera función del PROLOG-A en la vida. 
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S 
ES 





13 


Listado 
de PROLOG-A 


Por supuesto, PROLOG-A es, en realidad, un simulador en BASIC de 
PROLOG más que un verdadero intérprete, por lo cual no se comporta en 
todas las situaciones exactamente igual a como lo haría el frontal SIMPLE de 
micro-PROLOG. No obstante, vale en la mayoría de los casos (aunque la 
compilación de las reglas no es siempre tan perfecta como sería de desear). Con 
toda certeza, el programa constituye una herramienta con la que se puede 
aprender por sí mismo PROLOG, y mediante la cual se puede realizar gran 
cantidad de experimentos. 

El listado que viene a continuación es bastante bueno. Para hacer PRO- 
LOG-A más asequible, lo escribí deliberadamente de modo que se pudiera omitir 
toda la parte matemática, sin afectar en absoluto al funcionamiento del progra- 
ma (por supuesto que posteriormente, una vez recuperados de la introducción 
de la versión simplificada del PROLOG-A, podemos añadir la parte para el 
procesamiento numérico). Para suprimir la parte matemática basta con saltarse 
las líneas 2430 a 3260. También se podrían omitir (pero no lo recomiendo) las 
líneas 220, 230, 240 y 250. Si lo hacemos, habría que añadirlas posteriormente 
cuando se decida incorporar la parte matemática. 

Tal como indica la línea 20, todas las introducciones deben efectuarse en 
letras mayúsculas. El programa puede manejar en su base de datos hasta 1000 
líneas y compilar hasta 100 nuevos hechos en base a una regla (aunque es casi 
imposible que esto se necesite). Sin embargo, el programa se hace cada vez más 
lento (como cabía suponer) conforme la cantidad de información que mantiene 
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aumenta. Esto, en realidad, no importa, ya que, como veremos, el tiempo que le 
cuesta responder a la mayoría de las preguntas es, con todo, cuestión de 
segundos. 


REM PROLOG-A 
( UN SENCILLO VISTAZO ) 
REM TODAS LAS ENTRADAS 
EN MAYUSCULAS 

25 CLEAR 500 

30 GOTO 50 

40 PRINT "NO HAY (MAS) RESPUESTAS":R 

ETURN 

50 GÓSUB 3270:REM INICIALIZACION 

60 REM 440 IR II III IE II III 

70 PRINT 

80 PRINT "X."3:LINE INPUT Js 

90 1F J$="" THEN 3310 

93 LFRINT "2%."5J% 

100 1F J$="LISTA TODO" THEN GOSUB 186 

0:GOTO 70 

110 IF LEFT$(J$,6)="LISTA " THEN J$=M 

1D$ (I1%,6)+" ":GOSUB 990:GOTO 70 

120 IF RIGHT+$(J$,1)<>")" THEN PRINT " 

1.": INPUT M$:J$=J$+M$: GOTO 120 

130 LJ=LEN(J$) 

140 JI$=LEFTS (I$,LJ-1)+" ": REM. QUITA 
PARENTESIS FINAL Y LO CAMBIA FOR 
UN ESPACIO 

150 LJ=LEN(J$) 

160 FL=0 

170 IF LEFTS(IJ$,5)="METE (” THEN J$=0MI 

D$ (J$,6) : FL=1 

180 RU=0: MA=0: AR=0 

190 FOR R=1 TO LEN(J$) 

200 IF MID$(J$,R,4)=” SI " THEN RU=R: 

FL=6 

210 IF MID$(J$,R,3)=" Y " THEN MA=R 

220 IF MID$(J$,R,5)="SUMA(" THEN AR=1 


230 IF MID$(J$,R,6)="VECES(” THEN AR= 


240 IF MID$(J$,R,7)="MENOR(" THEN AR= 





] 
l 
1 
| 
| 
I 
] 
] 
I 
| 
] 
l 
| 
1 
| 
J 
| 
] 
l 
' 
l 
] 
l 
l 
l 
I 
l 
| 
I 
I 
' 
' 
' 
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' 
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MN (y 


50 IF MID$(J$,R,3)="ENT" THEN AR=4 


SIC" (Qe O: AE O O O 


O 


O 


O 


260 NEXT R 
270 IF LEFTS$ (IJ$,3)="ES(” THEN J$=MID$ 
(J$,4):FL=2 
280 1F LEFT$(I$,9)="CUAL(X : " THEN J 
$=MID+$ (I$, 10) :FL=3 
290 1F LEFTS$(9J$, 15)="CUAL((X 2) 23 Xx " 
THEN J$=MID$S (J$,16):FL=4 
300 IF FL=0 THEN FRINT "ERROR DE SINT 
AXIS":GOTO 70 
310 LJI=LEN(I$) 
320 REM AHORA BUSCA LAS SUBRUTINAS 
PERTINENTES 
330 IF MAX<>0 THEN GOSUB 1950:GOTO 70: 
REM CODIFICA LA REGLA CONDICIONAL 
» Ss I 1) 
340 IF RUX>O AND FLX>S THEN GOSUB 111 
O:REM CODIFICA LA REGLA YA 
350 IF AR<>0 THEN GOSUB 2430:GOTO 70: 
REM ARITMETICA 
360 IF RIGHTS (J$,3)=" X " OR RIGHTS (J 
$,3)=" Z " THEN J$=LEFTS (J$,LJ-2)+" " 
370 LJ=LEN(J$) 
380 IF FLl=1 THEN GOSUB 440:REM METE 
390 IF FL=2 THEN GOSUB 520:REM ES 
400 1F FL=3 THEN GOSUB 610:REM CUAL 
410 IF FL=4 THEN GOSUB 830:REM CUAL2 
420 GOTO 70 
430 REM 360 0H ME MEE IE IE IE IIA 
440 REM METE 
( ADQUIERE AFIRMACIONES ) 
450 Kk=0 
4560 K=k+1 
470 IF Z$(K)="" THEN Z$(K)=J$: RETURN 
480 IF E<1000 THEN 460 
490 PRINT " MEMORIA COMPLETA" 
500 RETURN 
510 REM 40 A II IIED III IR III RA 
520 REM ES 
530 E=0 
540 K=kK+1 
550 IF Z$(K)="" THEN 580 
560 IF Z$(K)=J$ THEN LPRINT " SI":GOT 
O 590 
570 IF Kx<1000 THEN 540 
580 PRINT " NO" 


O) 0 ¿O O 


O 


O 
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SI A E AS A 


O 


140 


590 RETURN 
600 RED 14d TIE DE DE IE TE DEE DE ME IE DE DE DEI DE IEEE JE 
610 REM cual 
( BUSCA LAS CORRESPONDENCIAS ) 
620 IF LEFT$(J$,1)="X" THEN 710 
630 J$=LEFTS$ (J$,LJ-1) 
640 K=0 
650 K=kK+1 
660 IF 2Z2$(K)="" THEN 490 
670 1F J$=LEFTS$(Z$(K),LEN(J$)) THEN F 
RINT RIGHTS (Z$(K), (LEN(Z$(K))-LEN(J%$) 
3) 
680 IF KEX1000 THEN 4650 
690 GOSUB 40 
700 RETURN 
710 REM * CUESTIONES QUE COMIENZAN 
CON X + 
720 JI$=M1D$(J$,3,LEN(J%+$)-3) 
730 LJ=LEN(J%) 
740 K=0 
750 K=kK+1 
760 1F Z$(K)="" THEN 800 
770 O$=MID$ (7$(K), ,LEN(Z$ (K))-LJ,LJ) 
780 IF 0$=J$ THEN LPRINT LEFTS(Z$(k), 
LEN (Z$(K))-(LJ+2)) 
790 1F Kx1000 THEN 750 
800 GOSUB 40 


810 RETURN 
820 REM 0 6D III MIE IEEE 
830 REM * CUAL2 * 


840 J$=LEFTS$(J$,LJ-2) 
850 LJ=LEN(J$) 

860 K=0 

870 K=kK+1 

880 IF Z$(K)="" THEN 960 

890 LF=0 

900 FOR L=1 TO LEN(Z5$(K))-LJ 

910 IF MIDS(Z$(K),L,LJ>=J$ THEN LF=L 
920 NEXT L 

930 IF LF=0 THEN 950 

940 PRINT LEFT$(Z$(1<) ,LF-2)3MID$ (75 ( 
K),LE+LJ) 

950 IF k<1000 THEN 870 

9460 GOSUB 40 

970 RETURN 


O 


¡DA NE E 


O 


O 0 


O 


980 REM III IET IE DEERE IEEE TE DERE IE IET MEE TE AE 


990 REM LISTADO 

1000 K=0 

1010 K=kK+1 

1020 IF Z$(K)="" THEN RETURN 
1030 LF=0 


1040 FOR L=1 TO LEN(Z$(K))-LEN(J$) 
1050 IF MID$(Z$(K),L,LEN(J$))=J$ THEN 
LF=1 
1060 NEXT L 
1070 IF LF=1 THEN PRINT Z$(K) 
1080 IF K<1000 THEN 1010 
1090 RETURN 
1100 REM 66366066 HERE ME III ER 
1110 REM CONFORMA LAS REGLAS 
1120 R=RU 
1130 Es=LEFTS$ (J$,R):F$=MID$ (J$,R+4) 
1140 IF LEFT$(E+$,1)<>"X" THEN PRINT 
"ERROR EN LA REGLA":GOTO 70 
1150 REM LA SIGUIENTE LINEA DETECTA 
ENTRADAS COMO : 
X RELACION Z SI XES Z 
1160 IF RIGHT$(F$,2)="Z " THEN 1390 
1170 PRINT TAB(7)3"INTERPRETANDO LA 
REGLA" 
1180 FOR T=1 TO 100 
1190 R$(T)="" 
1200 NEXT T 
1210 E$=MID$(E$,3) :F$=MIDS (F$,3) 
1220 K=0:RR=0 
1230 k=kK+1 
1240 IF Z$(K)="" THEN 1300 
1250 IF RIGHTS (Z$(K) ,LEN(F$))<>F$ THE 
N 1370 
1260 RR=RR+1 
1270 R$(RR)=LEFTS (Z$(K),, (LEN(Z$ (K))-L 
EN(F$)))+E$ 
1280 PRINT "> "3R$(RR) 
1290 GOTO 1230 
1300 1F RR=0 THEN RETURN 
1310 RC=0 
1320 RC=RC+1 
1330 Z4$(K) =R$(RC) 
1340 IF K<1000 THEN K=kK+1 
1350 IF REC<RAR THEN 1320 


OS 05 MOT 0 


O 10 O “¡Qe “E Or 0 


O 


O. QT. 0 
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O 


O Oe O 


O 


O 
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1360 RETURN 

1370 IF K<1000 THEN 1230 

1380 RETURN 

1390 REM * REGLA CON DOS VARIABLES + 
1400 FOR T=1 TO 100 

1410 R$(T)="" 

1420 NEXT T 

1430 k=0:RR=0 

1440 IF K=1000 THEN RETURN 

1450 E=kK+1 

1460 IF Z$(K)="" THEN 1770 

1470 REM DIVISION EN TRES PALABRAS 
1480 Q$=Z$(k) 


1490 J=0 
1500 J=J+1 
1510 IF MID$(0%$,J,1)=" ”" THEN 1540 


1520 IF J<LEN(O$) THEN 1500 

1530 PRINT "ERROR EN LA INTERPRETACI 
ON DE REGLA ":GOTO 70 

1540 A$=LEFTS$ (0$,3J) 

1550 O$=MID$(0$,J+1) 


1560 J=0 
1570 J=J+1 
1580 IF MID$(0$,J3,1)=" " THEN 1610 


1390 IF J<¿LEN(O$) THEN 1570 

1600 PRINT "ERROR EN LA INTERPRETACI 
ON DE REGLA ":GOTO 70 

1510 B$=LEFTS(0$,J) 

1620 QO$=MID$(0$, J+1) 

16:30 J=0 

1640 J=J3+1 

1650 IF MID$(0$,J,1)=” " THEN 1680 
1660 IF J<LEN(O$) THEN 1440 

1670 PRINT "ERROR EN LA INTERPRETACIO 
N DE REGLA ":GOTO 70 

1680 PRINT TAB(17)5 "INTERPRETANDO LA 
REGLA" 

1690 C$=LEFTS (08,3) 

1700 M$=MID$(F$,3,LEN(B$)) 

1710 IF, B$<>M% THEN 1440 

1720 RR=RR+1 

1730 N$=MID$(E$,3,LEN(E$)-4) 

1740 R$ (RR) =A$+N$+C$ 

1750 PRINT "> "5R$(RR) 

1760 GOTO 1440 


e 10,010 


de 


On 30. ¿07/30 


O 97 ¿Que AQ 


O 


O 


1770 IF RR=0 THEN RETURN 

1780 M=0 

1790 M=M+1 

1800 IF M>RR THEN RETURN 

1810 2$(K)=R$(M) 

1820 IF K=1000 THEN FRINT " NO ESTA E 
N MEMORIA":GOTO 70 

1830 KE=kK+1 

1840 GOTO 1790 

1850 REM 4 6-I-4 43616 M II IE IE E RIIIE A 


1860 REM LISTA TODO 

1870 PRINT 

1880 EK=0 

1890 K=K+1 

1900 IF Z$(K)="" THEN RETURN 


1910 FRINT Z$(K) 

1920 IF K<1000 THEN 1890 

1930 RETURN 

1940 REM 4484 I6 3 II DIED DEE NM III IEEE dE 

1950 REM CONFORMA LAS REGLAS CON "Y" 
DEL SIGUIENTE TIPO : 

1960 REM ( X ABSORBE Z SI X ES UNA 

COSA Y Z ES OTRA COSA ) 

1970 REM EL CONCEPTO X DEBE ESTAR EN 
LISTA, PRECEDIENDO A Z PARA TODOS 
LOS EJEMPLOS QUE SE CODIF IQUEN 

1980 REM DIVIDIDOS EN SECCIONES 

1990 J$=MID$ (J$,2): REM ELIMINA "Xx" 


2000 FRINT TAB(10)5"INTERPRETANDO LA 
REGLA" 

2010 J=1 

2020 J=J3+1 

2030 IF MID$(J$,J,1)=" " THEN 2060 


2040 IF J<¿<LEN(J$) THEN 2020 

2050 PRINT "ERROR EN LA INTERPRETACIO 
N DE REGLA": RETURN 

2060 AS$=LEFTS (J$,J): REM RELACION 1 
2070 J$=MID$ (J$,J+7): REM DIVIDE AL 
COMIENZO DE LA SEGUNDA RELACION 

2080 J=1: CN=0 

2090 J=J+1 

2100 IF MID$*(J$,J,1)=" " THEN CN=CN+1 
2110 IF CN=2 THEN 2140 

2120 IF J<LEN(J$) THEN 2090 

2130 FRINT "ERROR EN LA INTERPRETACIO 


Os SO JO “Or O 


O 


O 


O. 0 0 10: 0.10 El “O. Q 
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O O “O “O 0): Os O 10) 


O 
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N DE REGLA": RETURN 

2140 C$=MID$(J$,J): REM CONCEPTO 1 
2150 C$=M1D$ (J$,J3+4) : REM CONCEPTO 2 
2160 IF C$=" " THEN PRINT "ERROR EN L 
A INTERPRETACION DE REGLA”: RETURN 
2170 REM AHORA VA A LA BASE DE DATOS 
2180 FOR T=1 TO 200 

2190 R$(T)="" 

2200 NEXT T 

2210 R1=0:R2=99 

2220 K=0 

2230 K=k+1 

2240 IF Z$(K)="" THEN 2310 

2250 IF R1=99 OR R2=200 THEN PRINT " 
FALTA MEMORIA":GOTO 2310 

2260 LB=LEN(B$) 

2270 IF RIGHTS (Z$(K),LB)=B$ THEN Ri=R 
1+1:R$(R1)=LEFTS (Z2$ (K) ,LEN(Z$ (K) )-LB) 
2280 LC=LEN(C$) 

2290 IF RIGHTS (Z$ (K) ,LC)=C$ THEN R2=k 
2+1:R$(R2) =LEFTS (Z$ (K) ,LEN(Z$ (K))-LC) 
2300 IF Ezx1000 THEN 2230 

2310 1F R$(100)="" THEN PRINT "EL SEG 
UNDO CONCEFTO NO ESTA EN LA BASE D 
E DATOS ":RETURN 

2320 REM AHORA CODIFICA LAS REGLAS 
2330 R1=0:R2=99 

2340 R2=R2+1 

2350 Ri1=R1+1 

2360 IF R$(R1)>" " AND R$(R2)>" " THE 
N Z2$(K)=R$(R1)+A$+R$(R2ZI+" " 

2370 PRINT "> "3Z$(k) 

2380 K=k+1 

2390 IF R$(R2+1)<>"" THEN 2340 

2400 IF R$(Ri+1)<>"" THEN 2350 

2410 RETURN 

2420 REMO red III III MEN IM 
2430 REM ARITMETICA 

2440 LJI=LEN(J$) 

2450 IF AR<3 THEN GOSUB 2490 

2460 IF AR=3 THEN GOSUB 2890 

2470 1F AR=4 THEN GOSUB 3080 

2480 RETURN 

2490 REM *%%x% SUMA — VECES x 
2500 J$=MID$ (J$,5,LJ-5) 


O 


O 


O 107 MOS 110 


$ 


2510 IF LEFT*(J$,2)="S(" THEN JI$=MID$ 
(I$,3) ELSE J$=MID$(I%$,2) 

2520 LJ=LEN(JI$) 

2530 K=0 

2540 K=k+1 

2550 IF MID$(J$,K,1)=" ” THEN A$s=LEFT 
$ (IJ$,£-1) 2: J$=MIDS (IJ$,K+1):GOTO 2580 
2560 IF KxLJ THEN 2540 

2570 PRINT TAB(12)5 "ERROR ARITMETICO" 
: RETURN 

2580 LJ=LEN (J$) 

23970 FK=0 

2600 K=kK+1 

2610 IF MID$(J$,K,1)=" " THEN Bs$=LEFT 
$(I$,EK-1):J$=MID% (IJ$,K+1):GOTO 2640 
2620 IF K<LJY THEN 2600 

2630 PRINT TAB(12)5 "ERROR ARITMETICO" 
: RETURN 

2640 LJ=LEN (J%) 

2650 K=0 

2660 K=k+1 

2670 IF MID$(J$,K,1)=")" THEN C$=LEFT 
$ (J$,E-1):GOTO 2700 

2680 IF K<LJ THEN 2660 

2690 FPRINT TAB(4)3 "ERROR— (DEMASIADAS 
VARIABLES)": RETURN 

2700 AN=0: BN=0: CN=0 

2710 IF ASC(A$)>58 THEN AN=1 

2720 IF ASC(B$)>58 THEN BN=2 

2730 IF ASC(C$)>58 THEN CN=4 

2740 GU=AN+BN+CN: IF GU=3 OR GU=5 OR G 
U=6 THEN 2690 

2730 IF AR=2 THEN 2820: REM VECES 

2760 IF GU>O THEN 2790 

2770 1F VAL(AS$)+VAL (B+$)=VAL (C$) THEN 
PRINT " SI":RETURN 

2780 PRINT " NO": RETURN 

2790 IF GU=1 THEN PRINT VAL (C$)-—VAL (E 
$) :GOSUB 40: RETURN 

2800 IF GU=2 THEN PRINT VAL (C$)-VAL (A 
$): GOSUB 40: RETURN 

2810 PRINT VAL (A$)+VAL (B$) :GOSUB 40:kK 
ETURN 

2820 REM * VECES  * 

2830 1F GU>0O THEN 2860 


Oo 56 070 


O. COLO 0 
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2840 IF VAL(A$) VAL (B$) =VAL (0$) THEN 
PRINT " SI":RETURN 
2850 PRINT " NO": RETURN 
2860 IF GU=1 THEN PRINT VAL (C5$) /VAL (B 
$) :GOSUB 40: RETURN 
2870 IF GU=2 THEN PRINT VAL (C$) /VAL (A 
$) :GOSUB 40: RETURN 
2880 PRINT VAL (A$) * VAL (R$) : GOSUB 40:R 
ETURN 
2890 REM X%%%2% MENOR III IRE 
2900 NF=0 
2910 IF ASC (I$)<58 THEN NF=1: REM 
SON NUMEROS 
2920 CN=0 
2930 K=0 
2940 K=kK+1 
2950 IF MID$(J$,K,1)=" " THEN CN=CN+1 
2960 1F CN=2 THEN 3000 
2970 IF K<LEN(J$) THEN 2940 
2980 PRINT TAB(10)3"ERROR EN LA COMPA 
RACION" 
2990 RETURN 
3000 B$=MID$(J$,k+1) 
3010 A$=LEFTS* (J$, K-6) 
3020 IF NF=1 THEN 3050 
3030 IF A$<B$ THEN PRINT " SI":RETURN 
3040 PRINT " NO": RETURN 
3050 REM XxX NUMEROS 323% 
3060 1F VAL(AS)<VAL(B$) THEN PRINT ” 
SI": RETURN 
3070 PRINT " NO": RETURN 
3080 REM Xx%%% ENT II I4IIH RE 
3090 IF RIGHT$(I$,2)="X " THEN 3190 


3100 k=0 
3110 EK=k+1 
3120 IF MID$(J$,K,1)=" " THEN 3160 


3130 IF K<LEN(J$) THEN 3110 

3140 PRINT TAB(10)53 "ERROR ARITMETICO" 
3150 RETURN 

31560 A=VAL (LEFTS (J$, K-1)) 

3170 IF INT(A)=A THEN PRINT " SI":RET 
URN 

3180 PRINT ”" NO": RETURN 

3190 K=0 

3200 K=k+1 


00) > OO O 


O 


GE O “O 07 180 


O 


3210 
3220 
3230 


IF MID$(J$,kK,1)=" " THEN 3240 
IF K<LEN(J$) THEN 3200 
FPRINT TAB(10)53 "ERROR ARITMETICO" 


: RETURN 


3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
N yn 
3340 
3350 
3360 
3370 


PRINT INT(VAL(LEFTS$(J$,K-1))) 
RETURN 

REM FEIEI III dE DE IE ME IE IE IE IE IE IE IE IET TE ENE 

REM INICIALIZACION 
CLS:KEYOFF 

DIM Z$(1000),R$(200) 

RETURN 

CLS 

LOCATE 3,10 

FRINT "QUIERES TERMINAR ? (5, 


A$= INKEYS$ 

IF A$="S" THEN CLS:KEYON: END 
IF A$="N" THEN CLS:GOTO 70 
GOTO 3340 


O e 00 


O. 20 “Q- O 
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Un poderoso 
LISP 


El PROLOG que hemos estudiado en los capítulos anteriores es un descen- 
diente del LISP (al igual que los lenguajes SMALLTALK y LOGO). El aprendiza- 
je de la utilización del LISP es mucho más difícil que el de la del frontal 
SIMPLE del PROLOG, pero esta dificultad viene acompañada de un significa- 
tivo aumento de flexibilidad y de potencia. Una vez que hayamos dominado el 
PROLOG-A, estaremos en disposición de introducirnos en el LISP. 


Las palabras 


Solamente hay dos tipos de palabras en LISP, átomos y listas. Un átomo es 
una palabra (o una combinación de letras y números, que comienza por una 
letra). No puede contener espacios ni cualquier carácter que no sea un número 
o una letra. Las palabras siguientes son átomos: 


ORDENADOR CHORIZO  R2D2 — C3P0 


Una lista se compone de átomos y otras listas. Comienza con un paréntesis 
a la izquierda, seguido de átomos y listas, y acaba con un paréntesis a la 
derecha. También puede haber otros pares de paréntesis en el interior de los 
dos exteriores. La lista más simple contiene un único átomo, como: (ORDENA- 
DOR), o más de un átomo, separados por espacios: (ORDENADOR CHORI- 
ZO R2D2). LISP admite una lista vacía, que es precisamente (). A ésta se le 
llama lista nula. 
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Una lista puede contener a otras listas. Consideremos la lista (COMO 
LO HACE). Podría estar dentro de otra lista: (LA PREGUNTA ES (COMO LO 
HACE). Las listas (y la proliferación de paréntesis) pueden hacerse complejas, 
como en el caso de la lista (COMO (LO (HACE), AHORA) DON JOSE). Así, 
el gran número de paréntesis ha dado lugar a la teoría de que LISP, en vez de 
ser las siglas de LISt Processing (Procesador de listas), significa Lots of Infu- 
riatingly Stupid Parentheses (cantidad de exasperantes paréntesis estúpidos). 

No se preocupe si esto parece ya hacerse complejo. Nuestros programas tipo 
LISP, EASLE y SSLISP le llevarán a través del manejo de listas de forma 
relativamente cómoda, haciendo cosas tales como el contar por usted el número 
de paréntesis, y asegurarse de que están equilibrados. 


Las funciones básicas 


En LISP tiene seis funciones básicas. Nuestro primer programa, EASLE 
(Easy And Simple Lisp-like Exerciser: Ejercitador tipo Lisp fácil y sencillo), nos 
permitirá experimentar con ellas. Las seis funciones son CAR, CDR, CONS, 
ATOM, NULO e IGUAL. En un sistema LISP real, se pueden utilizar precisa- 
mente estas seis para crear casi cualquier función de ordenador que pueda ser 
creada. Pronto aprenderemos lo que hacen estas seis funciones, viéndolas en 
acción en EASLE. (Ambos, EASLE y SSLISP, siguen la sintaxis de EUQ-LISP, 
que es una de las más fáciles de utilizar. Otros dialectos, como EU-LISP o 
P-LISP, exigen una sintaxis ligeramente distinta. Sin embargo, todos los LISP, 
especialmente en su nivel básico, son bastante parecidos, y las experiencias que 
adquiera al trabajar con mis programas pueden adaptarse fácilmente a las 
exigencias de cualquier sistema que acabe utilizando.) 


CAR 


Se utiliza para conseguir el primer elemento de una lista. La función se 
utiliza con un par de paréntesis propios que encierran la lista que se quiere 
comprobar (que a su vez está encerrada en su propio par de paréntesis). El caso 
más simple es como el siguiente: 


SU VALOR ES ... 


A > CAR ((ESTE ES UN HOMBRE DURO) > 
CR, ESTE 


En el ejemplo siguiente, el primer elemento de la lista es otra lista, (ESTE 
ES), como puede ver cuando use CAR: 


AS > CAR (((ESTE ES) UN HOMBRE DURO) ) 
5 SU VALOR ES ... 
A, (ESTE ES) 


150 


Donde PROLOG respondía SI y NO a preguntas, LISP devuelve un 
C-CIERTO (por “verdad”) o un NADA (por “falso”). Una lista vacía, (), es 
considerada por el sistema como NADA, tal como veremos en el ejemplo 
siguiente, en el que la lista vacía es el primer elemento de la lista a la que 
aplicamos la función CAR: 


> CAR (00 (ESTE ES UN DURO))» == 
SU VALOR ES ... a 
NADA ¡2, 


Anteriormente dijimos que EASLE y SSLISP cuentan los paréntesis por 
cuenta del usuario. Lo podemos ver en el ejemplo siguiente, en el que acciden- 
talmente se ha omitido el paréntesis final “)”: 


> CAR ((ESTE ES) (EL MEJOR) 


-> OMISION DE ) == 
ed E=a 
SU VALOR ES ... EZ 
(ESTE ES) 
CDR 


Esta función devuelve la lista que queda después de aplicar la función CAR 
a una lista. Lo veremos en los ejemplos siguientes* 


> CDR ((NACIO EN PISCIS)) 
SU VALOR ES ... 
(EN PISCIS) 


E 


> CDR (((EL NACIO EN) PISCIS)) 
SU VALOR ES ... 
(PISCIS) 


Ú 


> CDR (((LA MEJOR EPOCA) )) 
SU VALOR ES ... 
NADA 


1) 


> EDR ((() (LA ERA ESPECTRAL) )) 
SU VALOR ES ... 
((LA ERA ESPECTRAL) ) 


1) 
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pay 


CONS 


Esta función une listas (al contrario que CAR y CDR, que las separan). 
Combina dos argumentos, el segundo de los cuales debe ser una lista, tal y 
como se muestra en la siguiente prueba del funcionamiento del programa 
EASLE: 


> CONS (LOS ORDENADORES (AYUDAN) > 
SU VALOR ES ... 
(LOS ORDENADORES AYUDAN) 


> CONS ((ORDENADORES) (CON TRABAJO) ) 
SU VALOR ES ... 
( (ORDENADORES) CON TRABAJO) 


[] 


> CONS ((LA ERA) ((MAS (BONITA))>)) 
SU VALOR ES ... 
((LA ERA) (MAS (BONITA) )) 


) 


> CONS (PISCIS ()) 
_) SU VALOR ES ... 
(PISCIS) 


És 


Podemos ver que una lista a la que ha aplicado la función CONS se 
compone de un CAR y un CDR. 


ATOM 


Después de ver las funciones CAR, CDR y CONS, vamos a tratar ahora la 
función ATOM, que es mucho más sencilla que las tres anteriores. Anterior- 
mente dije que, cuando se hace una interrogación, LISP contesta con un 
C-CIERTO (por “verdad”) o con NADA (por “falso” o “lista vacía”). ATOM 
(junto con las siguientes funciones que veremos, IGUAL y NULO) son funcio- 
nes de comprobación, y devuelven un C-CIERTO o un NADA. ATOM devuelve 
un C-CIERTO si el único elemento considerado de la lista es un átomo. Los 
ejemplos siguientes aclararán lo anterior: 


3 > ATOM (AVION) 
ET SU VALOR ES ... 
Y C - CIERTO 


> ATOM ((LA ERA DE PISCIS)) 
SU VALOR ES ... 
NADA 


> ATOM ((PISCIS)) 
SU VALOR ES ... 
NADA 


IGUAL 


Vimos anteriormente que ATOM devuelve un C-CIERTO si el único argu- 
mento es un átomo, y NADA en cualquier caso. IGUAL devuelve un 
C-CIERTO si los dos argumentos de IGUAL son átomos idénticos; en otro 


caso proporciona un NADA. 
Veamos a IGUAL en acción: 


> IGUAL (PISCIS PECES) 
SU VALOR ES ... 
NADA 


> IGUAL (PECERA PECERA) 
SU VALOR ES ... 
C -— CIERTO 


NULO 


E 
LJ) 


sl 


Finalmente, llegamos a la sexta función, una función de comprobación 
llamada NULO. Esta posee un solo argumento y devuelve un C-CIERTO si el 


argumento es la lista vacía () y NADA en caso contrario: 


> NULO (()) 
SU VALOR ES ... 
C - CIERTO 


> NULO ((())3) 
SU VALOR ES ... 
NADA 


> NULO () 
SU VALOR ES ... 


* NULO NECESITA ARGUMENTO 


$ 
=) 


r 


00 
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SU VALOR ES ... 


ES > NULO ((ACUARIO DE CRISTAL)) 
—) NADA 


EASLE 


El verdadero LISP (no así EASLE) permite introducir expresiones compues- 
tas complejas para evaluarlas, tales como: 


CONS (CAR(( FRANCIA)) (CONS( NOS AMA) 
CDR (( RGA CON TERNURA )))) 


que da como resultado: 


SU VALOR ES... 
- (FRANCIA NOS AMA CON TERNURA) 


SSLISP (que viene de Single Statement LISP: Sentencias Sencillas LISP) no 
admite expresiones múltiples, lo que limita fuertemente su valor como herra- 
mienta por propio derecho. No obstante, aunque EASLE y SSLISP no pueden 
utilizarse tal y como son para crear sistemas expertos, sirven con toda seguri- 
dad para proporcionar al usuario las ideas necesarias para enfrentarse con un 
LISP completo. 

Ahora, cargue y ejecute EASLE, y utilícelo para evaluar varias listas por sí 
mismo: 





REM EASLE 
20 CLS:KEYOFF 
3O DIM X(40),Y(40),Z (40) 
40 FRINT 
50 FPRINT "> "5:LINE INFUT As 
60 IF A$="" THEN 970 ¿REM PULSA 

< RETURN > PARA TERMINAR 

70 REM ed IMEI IE III II MDI REI ME IAE 
80 FOR J=1 TO 40 
90 X(J)=0:Y (J)=0:Z (J)=0 
100 NEXT J 
110 REM 4d I 0d III III MM INMI IM 
120 R=0: S=0: T=0: CUNO=0: CDOS=0: ED=0 
130 FOR J=1 TO LEN(A$) 
140 B$=MID$(A+,J,1) 
150 IF B$="(" THEN S=S+1:Z(S)=J: 1F T= 
O THEN CUNO=J 
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160 IF B$=")" THEN T=T+1:Y(T1)=J: 1F CD 

OS<>0 AND ED=O0 THEN ED=J-1 

170 IF T=1 AND B$=")" THEN CDOS=J3 

180 IF B$=" " THEN R=R+1:X(R)=J 

190 NEXT Y 

200 IF S=T THEN 260:REM EQUILIBRADO 
DE PARENTESIS  ( ) 


210 IF S<T THEN PRINT " — OMISION DE 
( 00 

220 IF S>T THEN PRINT " -— OMISION DE 
) .” 

230 PRINT " + "S:LINE INPUT B$ 


240 A$S=A$+B$ 

250 GOTO 80 

260 FLAG=0:B$=" NADA" 

270 IF LEFT$(A$,5)="CAR (" THEN FLAG= 
1 

280 IF LEFTS(A$,5)="CDR (" THEN FLAG= 
2 

290 IF LEFTS$(A$,6)="CONS (" THEN FLAG 
=3 

300 IF LEFTS$(A$,6)="ATOM (” THEN FLAG 
=4 

310 IF LEFTS$(04$,7)="IGUAL (” THEN FLA 
G=5 

320 IF LEFT$(A$,6)="NULO (" THEN FLAG 
=4 

330 ON FLAG GOSUB 420,470,550,690,780 
,920 

340 IF FLAG<>0 THEN GOSUB 340 

350 GOTO 40 

360 REM *x* CONTESTACION DE RETORNO +** 


370 PRINT " SU VALOR ES ...” 

380 IF B$<>"()" THEN PRINT " "5B$ 
390 IF B$="()" THEN PRINT * NADA" 
400 RETURN 

410 REM 94036324696 MEME NE MIN EA 
420 REM *** CAR xk 


430 IF S=2 THEN B$=MID$(A$,7Z (2)+1,X (2 
)-Z(2)) 
440 IF S>2 THEN B$=M1D*(A$, CUNO, CDOS— 
CUNO+1) 


450 RETURN 
460 REM 433-4420 2I IE III IMEI IN ME MIE IE 
470 REM EL CDR Ak 


Oi ¡De 0.20 Q 


O 
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0 o E > RS. 
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480 GOSUB 420 

490 LB=LEN(B$)+7 

500 B$=" ("+MID$(A$,LB,ED-1) 

510 IF RIGHT$(B$,2)="))" THEN B$=LEFT 
$ (BS, LEN(B$)-1) 


520 IF MID$(B$,2,1)=" " THEN B$=" ("+M 
1D$(B$,3) 

530 RETURN 

540 REM Id LE DEE HE HE E HEEE IE IE III III 

550 REM ** CONS  *x 

560 B$=MID$(A$,7,LEN(A$)-1) 

570 J=0 

580 IF LEFTS(B$,1)="(" THEN J=1 

590 J=J+1 

600 1F MID$(B$,J,1)="(" THEM 430 

610 IF J<LEN(B$) THEN 590 

£20 B$="  * CONS INCORRECTO x*":RETUR 
MN 

630 LB=LEN(B$)-1 

640 B$=" ("+LEFTS(B$,J-1)+MID$(B$,J+1) 
650 B$=LEFT$(B$,LB) 

660 1F RIGHT$(B$,2)=" )" THEN B$=LEFT 
$ (B$,LEN(B$)-2)+")" 

£70 RETURN 

680 REM 3646 26 26 36 J€ DEJE JE SE FEIE SE HE IE ME IE HEHE E 

6590 REM ** ATOM *x 

700 A$=MID$(A$,7,LEN(A$)-1) 

710 J=0 

720 J=J+1 

730 IF MID$(A$,J,1)=" " OR MID$(A$,J, 
1)="(" THEN RETURN 


740 IF J<LEN(AS$) THEN 720 
730 B$="C — CIERTO" 


760 RETURN 
770 REM 34d 0d IIED III IE 
780 REM ** IGUAL — xx 


790 A$S=MID$(A$, 8) 
800 AS$=LEFTS$(A$, LEN (A$)-1) 


810 J=0 

820 J=J+1 

830 IF MID$(4$,J3,1)=")" THEN RETURN 
840 IF MID$(A4$,J,1)=" " THEN 870 
850 IF J<LEN(A$) THEN 820 

860 RETURN 


870 C$=LEFTS (A$,J-1) 


O 


¡SA O O. > AE AS 


O 


880 
890 
900 
910 
920 
930 


A$=MID$(A$, J+1) 

IF C$=A$ THEN B$="C -— CIERTO" 
RETURN 

A 

REM ** NULO  *%* 

IF A$="NULO ()" THEN PRINT " + NU 


LO NECESITA ARGUMENTO x" 


940 
950 


B$=" ”m 
IF A$="NULO (())” THEN B$="C -— CI 


ERTO" 


960 
970 


RETURN 
CLS: KEYON 


O o Or Y 
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SSLISP 


Con EASLE hemos aprendido a utilizar las seis funciones básicas de LISP: 
CAR, CDR, CONS, ATOM, IGUAL y NULO. Con el siguiente programa, que 
es más parecido al LISP, el SSLISP (de Sentencias Sencillas LISP), tendremos 
acceso a estas seis funciones originales y otras más, hasta un total de treinta y 
una, que proporcionan la mayoría de los sistemas LISP. 

SSLISP nos permitirá incluso definir nuestras propias funciones, así que, si, 
por ejemplo, pensamos que HUMO es un nombre más lógico que CAR, 
podemos definir una función de nombre HUMO, que se comporte exactamente 
igual a como lo hace CAR. SSLISP nos autoriza a definir hasta veinte funciones 
propias. 

Dado que las funciones son exactamente las mismas en SSLISP que en 
EASLE, no daremos ninguna muestra adicional de su funcionamiento. En vez 
de ello, nos concentraremos en las nuevas funciones. 


MIEMBRO 


Esta función busca la presencia de la primera lista en el resto de la lista 
completa, devolviendo la lista de la cual la primera lista es el resultado de la 
función CAR. Si no encuentra tal lista, devuelve un NADA. MIEMBRO utiliza 
la función MISMO (que veremos a su debido tiempo) en su definición, mientras 
que la siguiente función —MIGUAL— utiliza IGUAL. (En algunos sistemas 
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MIEMBRO comprueba la presencia de un átomo en el interior de una lista, 
dando como resultado C-CIERTO o NADA: 


f y > MIEMBRO ((EL FINAL) (TRAS (EL FINAL 
(2 ) (NOS FUIMOS))) 


PL SU VALOR ES ... 
((EL FINAL) (NOS FUIMOS) > 
5 NN 
> MIEMBRO (ESTO ((ESTO ES) UN TEST)) 
LL) SU VALOR ES ... 
NADA 
MIGUAL 


Como dijimos anteriormente, MIGUAL utiliza en su definición IGUAL, 
donde MIEMBRO utilizaba MISMO. El siguiente ejemplo muestra el efecto, en 
la práctica, de este cambio: 


> MIGUAL (AHORA (QUIZAS AHORA ESTEMOS 
MEJOR) > 

un SU VALOR ES ... 

PE, (AHORA ESTEMOS MEJOR) 


(a > MIGUAL (AHORA (QUIZAS (AHDRA) SEAN 


MAS) ) 
Y SU VALOR ES ... 


NADA 


JUNTA 


Su mismo nombre sugiere que JUNTA se utiliza para crear una única lista 
uniendo otras dos. El ejemplo siguiente nos la muestra en acción: 


PESA] > JUNTA ((VAMOS AL) (COLEGIO)) 
a) SU VALOR ES ... 


==] 
(e 
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UL 


z 


> JUNTA ((HACE DOS) (EN UNA) ) 
SU VALOR ES ... 
(HACE DOS EN UNA) 


U 


INVIERTE 


Esta función es ideal para poner al revés las tablas. Invierte los elementos de 
una lista, excepto los encerrados en sus propios paréntesis. Lo aclaramos con 
dos ejemplos: 


2 INVIERTE ((ARRIBA ABAJO ATRAS) ) 
SU VALOR ES ... 
(ATRAS ABAJO ARRIKA) 


J 


> INVIERTE ((NADIE SABE (COMO (GANARL 
E)))) 

SU VALOR ES ... 

( (COMO (GANARLE)) NADIE SABE) 


E 


MISMO 


Hace poco que mencionamos esta función al discutir MIEMBRO y 
MIGUAL. MISMO comprueba si las dos partes de la lista que está analizan- 
do son idénticas. Como podemos ver, los dos argumentos de esta función pueden 
ser números, listas o átomos: 


2 MISMO ((ESTE ES) (ESTE ES)) 
SU VALOR ES ... 
CE - CIERTO 


a 
oo 


> MISMO ((ESTE SI) (ESTE NO)) 
SU VALOR ES ... 
NADA 


Ñ 
a, 


Y 


MISMO ((ESE (ES)) (ESE (ES))) 
SU VALOR ES ... 
€ -— CIERTO 


) 


Y 


MISMO (9 9) 
SU VALOR ES ... 
C -— CORRECTO 


Ñ 
Ss 


> MISMD (9 -9) 
SU VALOR ES ... 
NADA 


E 
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LISTA 


Mientras que MISMO, y muchas otras funciones de LISP, pueden tomar 
dos y sólo dos argumentos, LISTA aceptará cualquier número de ellos. Da 
como salida los valores de los argumentos de la función (es decir, simplemente 
los lista): 


Y W > LISTA (PODEMOS TRABAJAR FUERA) 
un SU VALOR ES ... 
(PODEMOS TRABAJAR FUERA) 


SU VALOR ES ... 


e > LISTA (PODEMOS (TRABAJAR) FUERA) 
¡CU (PODEMOS (TRABAJAR) FUERA) 


SU VALOR ES ... 


7 > LISTA (PODEMOS (TRABAJAR (FUERA))) 
El (PODEMOS (TRABAJAR (FUERA))) 


Operaciones matemáticas 


El primer par de funciones que estudiaremos son INC1 y DECI, las cuales 
tienen la función de sumar o restar, respectivamente, una unidad al argumento 
que las sigue: 


== > INC1 (9) 
1 SU VALOR ES ... 
Mn) 10 


> INC1 (-100) 
SU VALOR ES ... 
-99 


El 
LW) 


> INC1i (0) 
SU VALOR ES ... 
1 


a 
L 


DECi (0) 
SU VALOR ES ... 
=1 


> DEC1 (-99) 
SU VALOR ES ... 
-100 


Ñ 
Lil 


a 
O) 
N 


La función CERO? comprueba si el argumento es un cero o no, devolviendo 
o NADA o C-CIERTO. La función UNO? hace la misma comprobación para 
el número uno: 


> CERO? (1) 
SU VALOR ES ... 
NADA 


1) 


57 


CERO? (9) 
SU VALOR ES +... 
NADA 


$ 


> CERO? (0) 
SU VALOR ES ... 
C - CORRECTO 


Ñ 


> UND? (1) 
SU VALOR ES ...+. 
C - CORRECTO 


> UNO? (0) A 
SU VALOR ES ... $ 
NADA LJ) 


NUMERO? responderá C-CIERTO si el argumento es un número, o 
NADA si no lo es, mientras que NEGATIVO? comprobará si el argumento es 
un número negativo o no: 


> NUMERO? (OCHO) 
SU VALOR ES ... 
NADA 


ñ 


> NUMERO? (9) 
SU VALOR ES ... 
C -— CIERTO) 


L 


> NEGATIVO? (7) 
SU VALOR ES ... 
NADA 


1) 


> NEGATIVO? (-7) 
SU VALOR ES ... 
C — CIERTO 


) 
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Las dos funciones siguientes, MAYOR y MENOR, requieren dos argumen- 
tos. Comparan el valor del primero de ellos con el del segundo, dando como 
resultado C-CIERTO o NADA: 


> MAYOR (999 12) 
SU VALOR ES ... 
C -— CIERTO 


£ 


> MAYOR (3 2) 
SU VALOR ES ... 
NADA 


| 


2 MENOR (12 888) 
SU VALOR ES ... 
C -— CIERTO 


] 


MENOR (-10 —1) 
SU VALOR ES ... 
C -— CIERTO 


MENOR (999 12) 
SU VALOR ES ... 
NADA 


y 


Tenemos taimbién las funciones MX (máximo) y MIN (mínimo), que pueden 
aceptar cualquier número de argumentos y dan como resultado, respectivamen- 
te, el valor máximo y el mínimo encontrados en sus respectivas listas: 


2 MAX (9 -8 123 0 33 19) 
SU VALOR ES ... 
123 


El 


> MIN (9 -8 123 0 33 19) 
SU VALOR ES ... 
167 


ú 


MENOS cambia el signo de su único argumento (multiplicándolo por 
menos uno): 


> MENOS (9) 
SU VALOR ES ... 
-9 


al 


> MENOS (-8) 
SU VALOR ES ...? 
8 


) 


2 


Operando numéricamente 


Mientras que las anteriores funciones matemáticas son esencialmente “pasi- 
vas”, produciendo una declaración relativa a sus argumentos o modificándolos 
en una unidad, el grupo de funciones siguiente se utiliza para realizar propia- 
mente operaciones matemáticas. 

RESTA calcula la diferencia en valor entre sus dos argumentos, restando el 
segundo del primero: 


> RESTA (34 12) 
SU VALOR ES ... 
22 


1 


> RESTA (100 -100) 
SU VALOR ES ... 
200 


E 


Con la función EXP (exponencial) podemos elevar el primer argumento a la 
potencia indicada por el segundo: 


> EXP (3 3) 
SU VALOR ES ... 
27 


> EXP (3 -3) 
SU VALOR ES ... 
.037037037037037 


É 


RECIP calcula el valor de uno partido por el argumento: 


> RECIP (3) 
SU VALOR ES ... 
III 


E 


+ RECIP (10) 
SU VALOR ES ... 
.1 


El 


> RECIP (.1) 
SU VALOR ES ... 
10 


1) 


pS 
2) 
gd 


DIVIDE divide el primer argumento por el segundo: 


> DIVIDE (9 8) 
SU VALOR ES ... 
1.125 


ul 


DIVIDE (3 12) 
SU VALOR ES ... 
239 


ú 


RESTO devuelve el resto que queda después de haber calculado el cociente 
de dos números (en muchas versiones de BASIC, el operador MOD devuelve el 
valor entero que es el resto de una división entera: RESTO es su equivalente en 
LISP: 


> RESTO (10 3) 


A 


SU VALOR ES ... 
1 


] 


RESTO (100 9) 
SU VALOR ES ... 
1 


RESTO (99 11) 
SU VALOR ES ... 
O 


1 


> RESTO (12) 
SU VALOR ES ... 
ERROR — NO SE ADMITE UN UNICO 
ARGUMENTO 


x 


> RESTO (12 3) 
SU VALOR ES ... 
O 


) 


Finalmente, mientras que muchas de las funciones anteriores solamente 
pueden manejar dos argumentos, las dos siguientes, SUMA y MULT, aceptan 
cualquier número de ellos: 


» 


66 


> SUMA (3 -8 3) 
SU VALOR ES ... 
0 


a 


> SUMA (13 -8 4) 
SU VALOR ES ... 
o 


1) 


> MULT (24 ,1) 
SU VALOR ES ... 
2.4 


1) 


> MULT (24 .01) 
SU VALOR ES ... 


] 


.24 

> MULT (12 3 3) EEN 
SU VALOR ES ... a 
108 lu) 


167 


S 
ES 
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Definición de 

funciones LISP 
por el usuario 


Al discutir las seis funciones básicas disponibles en los sistemas LISP (CAR, 
CDR y las demás) mencionamos que las podíamos utilizar para definir cual- 
quier función que pudiera ser creada en un sistema ordenador. LISP utiliza la 
función DEFINE para definir nuevas funciones. La función DEFINE que 
vamos a analizar sigue la sintaxis estándar de LISP para la definición de 
funciones por el usuario, por lo que la experiencia que adquirimos con SSLISP 
podremos aplicarla directamente a un sistema LISP completo. No obstante, 
debido a que SSLISP sólo puede aceptar una sentencia única cada vez, lo único 
que podemos hacer aquí es cambiar el nombre de funciones que el sistema 
soporta. Esto nos permitirá cambiar los nombres de hasta veinte de las funcio- 
nes que nos proporciona el SSLISP, 

La sintaxis para la utilización de DEFINE es la siguiente: 


DEFINE (NUEVO-NOMBRE(LAMBDA(VARIABLE-FICTICIA) (FUNCION 
VARIABLE-FICTICIA))) 


La definición de esta función, lo mismo que la de las restantes funciones de 
LISP, es una lista. La función CAR de esta lista es el nombre de la función 
(NUEVO-NOMBRE en el ejemplo anterior). Este nombre puede ser cualquier 
átomo, pero no debe coincidir con el nombre utilizado ya por el sistema para 
una de sus funciones. El nombre viene seguido de la palabra LAMBDA (que 
viene del formalismo lógico denominado cálculo-Lambda desarrollado y ex- 
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puesto por Alonso Church en su Introduction to Mathematical Logic, vol. 1, 
Princeton, New Jersey, Princeton University Press, 1956). A pesar de su impre- 
sionante linaje, podemos ignorarla, aunque recordando que debe ponerse (al 
igual que en el resto de los sistemas LISP del mundo) para que la función 
DEFINE trabaje. 

Después de LAMBDA viene una variable ficticia del tipo sobre el cual 
esperamos que nuestra palabra función definida opere. Seguidamente viene la 
verdadera función del sistema que deseamos sea imitada por nuestro NUEVO- 
NOMBRE. (En sistemas LISP reales, se pueden utilizar aquí otras definiciones, 
lo cual lleva a poder crear complejas y poderosas definiciones. FORTH otorga 
el mismo poder.) El último elemento de la lista es de nuevo una variable ficticia. 

Todo esto puede parecer un poco lioso. (Yo también la encontré como uno 
de los elementos más difíciles de comprender de LISP.) Sin embargo, una vez lo 
hayamos visto en acción, nos daremos cuenta de que es bastante fácil. 

Como ya sabemos, la función CAR devuelve el primer elemento de una lista. 
Nuestra primera utilización de DEFINE consistirá en crear una función deno- 
minada HUMO que nos devolverá el resultado de aplicar la función CAR a 
una lista. Para ello introducimos lo siguiente en nuestro sistema SSLISP: 


> DEFINE (HUMO (LAMBDA (DER) (CAR DER 


PON ,)) 
lo) SU VALOR ES ... 


HUMO 


Ahora la comprobamos utilizando HUMO como si fuera una función 
estándar del sistema: 


> HUMO ((ESTO ES UN TEST)) 
SU VALOR ES ... 
ESTO 


a 


> HUMO (((ESTE ES) UN HOMBRE DURO) ) 
SU VALOR ES ... 
(ESTE ES) 


Ñ 


¡Funciona! Si queremos utilizar para multiplicar una X en vez de la palabra 
MULT, podemos definir X de forma que: 


> DEFINE (X (DER (NUM) (MULT NUM) )> 
SU VALOR ES ... 


1 


Xx 
AS > X (8 9) 

E SU VALOR ES ... 
PE, 72 


— 
5] 
o 


Podemos hacer que el BOMBO se comporte igual que MAX: 


> DEFINE (BOMBO (DFR (ER) (MAX ER))) 
SU VALOR ES ... 
BOMBO 


L 


> BOMBO (1 44 -9 182 12) 
SU VALOR ES ... 
182 


É 


Para acabar añadiremos SOLO a nuestro vocabulario, y haremos que 
equivalga a ATOM: 


> DEFINE (SOLO (SAS (WERT) (ATOM WERT 
))> 

SU VALOR ES ... 

SoLo 


1) 


> SOLO (PALABRA) 
SU VALOR ES ... 
C -— CIERTO 


1] 


ll 
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Listado 
del SSLISP 


A continuación viene el listado completo de SSLISP para que pueda pro- 
barlo en su ordenador: 





130 X(J)=0:Y (J)=0:Z (J)=0 
140 NEXT J 


1 

O 10 REM S.S.LISP a 
| 20 GOSUB 3440:REM INICIALIZACION 

O! 30 REM TODAS LAS ENTRADAS EN 0) 
MAYUSCULAS ' 
40 AS=MID$(A$,E) : AS=LEFTS(A$,LEN(AS)— e 
| 1) l 

O | 50 RETURN : O 
| 60 REM FED IE TE TE DE TE IE DE TE IE IE IE DEE HEHE E E IE IE IE AE HE EE 

O : 70 PRINT O 
1 80 NN=0 
1. 90 PRINT "> ";:LINE INPUT As 

O | 100 IF A$="" THEN 3500:REM PULSA Ea 
< RETURN > PARA "TERMINAR 
1 110 REM dd II IE TE IE IE TE III IE II IE II II EE 

O | 120 FOR J=1 TO 12 Eo 
: 
| 1 


173 


DE PQ “e, 20 00) CO BOL O ¿O O O 00.0 


O 


O 
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150 REM 3611636 d0 0 HI IMEI IDE REI IET REIR HEEE 

140 R=0:S=0:7T=0: CUNO=0: CDOS=0: ED=0 

170 FOR J=1 TO LEN(A%) 

180 B$=MID$(4$,J,1) 

190 IF B$="(" THEN S=S+1:Z(S)=J:31F T= 

O THEN CUNO=J 

200 IF B$=")" THEN T=T+1:Y(T)=J:1F CD 

0S<50 AND ED=0 THEN ED=J-—1 

210 IF T=1 AND B$=")" THEN CDOS=J 

220 IF B$=" " THEN R=R+1:X(R)=J 

230 NEXT y 

240 IF S=T THEN 300:REM EQUILIBRADO 
DE PARENTESIS  ( ) 


250 IF S<T THEN PRINT " —> OMISION DE 
( . 

260 IF S>T THEN PRINT " -> OMISION DE 
) .“ 

270 PRINT " + "s5:LINE INPUT B$ 


280 A$=A$+B$ 

290 GOTO 120 

300 IF NWDS=0 OR NN=1 THEN 370 

310 M$=LEFT$(A$, Xx (1)-1) 

320 FOR J=1 TO NWDS 

330 IF M$=N$(J) THEN A$=0$ (3) +MID$ (A$ 
, LEN(NS (3))+1) 

340 NEXT J 

350 NN=1 

360 GOTO 120 

370 FLAG=0:B$=" NADA" 

380 IF LEFTS$(A$,5)="CAR (" THEN FLAG= 
1 

390 1F LEFT$(A$,5)="CDR (" THEN FLAG= 
2 

400 IF LEFT$(A$,6)="CONS (" THEN FLAG 
=3 

410 IF LEFT$(A$,6)="ATOM (" THEN FLAG 
=4 

420 IF LEFT$(A$,7)="IGUAL (" THEN FLA 
G=5 

430 IF LEFT$(A$,6)="NULO (" THEN FLAG 
=6 

440 IF LEFT$(A$,9)="MIEMBRO (" THEN F 
LAG=7 

450 1F LEFT$(A$,8)="MIGUAL (" THEN FL 
AG=8 


O 


O 


O. 30 O O 


O” BN 101 0 


2 SS 


O 


460 IF LEFT+$(A$,7)="JUNTA (" THEN FLA 
G=9 

470 IF LEFTS$(A$,10)="INVIERTE (” THEN 
FLAG=10 

480 IF LEFTS(A$,7)="MISMO (" THEN FLA 
G=11 

490 IF LEFT$(A$,7)="LISTA (" THEN FLA 
G=12 


500 1F LEFT+$(A$,8)="DEFINE (" THEN FL 
AG=13 

510 IF LEFTS$(A$,6)="INCi (” THEN FLAG 
=14 

520 IF LEFTS$(A$,6)="DEC1 (" THEN FLAG 
=15 


530 IF LEFTS(A$,7)="CERO? (” THEN FLA 
oe LEFTS(A$,7)="RESTA (" THEN FLA 
e LEFTS$S(A$,5)="EXP (" THEN FLAG= 
200 IF LEFTS(A$,5)="MAX (” THEN FLAG= 
57 IF LEFTS(A$,5)="MIN (" THEN FLAG= 
20 


580 IF LEFTS$(A$,6)="SUMA (" THEN FLAG 
=21 

590 IF LEFTS(A$,7)="MENOS (" THEN FLA 
G=22 

600 IF LEFTS$(A4$,8)="DIVIDE (" THEN FL 
AG=23 

610 IF LEFTS(A$,7)="RECIP (" THEN FLA 
G=24 


620 IF LEFT$(A$,7)="RESTO (” THEN FLA 
G=25 

630 IF LEFTS(A$,6)="MULT (" THEN FLAG 
=26 

640 IF LEFTS(A$,7)="MAYOR (" THEN FLA 
G=27 

650 IF LEFTS(A$,7)="MENOR (" THEN FLA 
G=28 

660 IF LEFTS$(A$, 11)="NEGATIVO? (" THE 
N FLAG=29 

670 IF LEFT$(A$,9)="NUMERD? (" THEN F 
LAG=30 

680 IF LEFTS$(A$,6)="UNO? (" THEN FLAG 


O 


O 


O 00, 0 


¿2 € QUO > O > E 


O 


176 


=31 

690 IF FLAG>13 THEN 720 

700 ON FLAG GOSUB 840,890,970,1110,12 
00, 1330,1380,1510,1700,1760,2000, 2130 
, 3300 

710 GOTO 760 

720 1F FLAG>24 THEN 750 

730 ON FLAG-13 GOSUB 2180,2230,22 
350, 2560,2790, 2820, 2870, 2920, 2960 
740 GOTO 750 

750 ON FLAG-24 GOSUB 3030,3070,3120,3 
160,3200,3250, 2280 

760 1F FLAG<>0 THEN GOSUB 780 

770 GOTO 70 

780 REM ** CONTESTACION DE RETORNO **x* 


80,2 


790 PRINT " SU VALOR ES ..." 

800 IF B$<>"()" THEN PRINT " "5B$ 
810 IF B$="()" THEN PRINT " NADA" 
820 RETURN 

830 REM 30d 6 IE HH TRINI 
840 REM ** CAR 4% 


850 IF S=2 THEN E$=MID$ (A$,Z (2)+1,X (2 
)-Z(2)) 
860 IF S>2 THEN B$=MID%$ (A$,CUNO, CDOS— 
CUNO+1) 


870 RETURN 
880 REM 242 21H IE IE IE IE IE IE IE II AH II IE IEA 
890 REM A CDR Le 


900 GOSUB 840 
910 LB=LEN(B$)+7 


920 B$="("+MID$(A$,LB,ED-1) 

930 1F RIGHT$(B$,2)="))" THEN B$=LEFT 
$ (B$,LEN(B$)-1) 

940 IF MID$(B$,2,1)=" " THEN B$=" ("+M 
ID$ (B$,3) 

950 RETURN 

960 REM 4d dd dE dE FE IE DE DEE E IE IE IAE DE TEE 

970 REM ** CONS  *x 

380 B$=MID$(M$,7,LEN(A$)-1) 

990 J=0 


1000 IF LEFTS$(B$,1)="(" THEN J=1 

1010 J=J+1 

1020 IF MID$*(B$,J,1)="(" THEN 1050 
1030 IF J<LEN(B$) THEN 1010 

1040 B$=" * CONS INCORRECTO %*%":RETU 


Or O a De: O 


O 


O 


ONO ODA DE, PD. AD O O O O (10 “O q O 


O 


RN 

1050 LB=LEN(B$)-1 

1060 B$="("+LEFTS(B$, J-1)+MIDS$ (B$, J+1 
) 

1070 B$=LEFTS$(B$,LB) 

1080 IF RIGHT$(B$,2)=" )" THEN B$=LEF 
T$ (B$, LEN (B$)-2)+")" 

1090 RETURN 

1100 REM 4363 HH IE HEHE IMEI IIA 


1110 REM Ek ATOM A 

1120 A$=MID$(A$, 7,LEN(A$)-—1) 

1130 J=0 

1140 J=3+1 

1150 IF MID$(A$,J,1)=" ” OR MID$(A$,J 


,»1)="(" THEN RETURN 

1160 IF J<LEN(A$) THEN 1140 
1170 B$="C -—- CIERTO" 

1180 RETURN 

1190 REM 4431616 IE IE III IE IE E IE III EE 


1200 REM ** IGUAL  *x 

1210 E=8:GOSUB 40 

1220 J=0 

1230 J=J+1 

1240 IF MID$(4$,J,1)=")"” THEN RETURN 
1250 IF MID$(A$,J,1)=" " THEN 1280 


1260 IF J<LEN(A$) THEN 1230 

1270 RETURN 

1280 C$=LEFTS$(A$,J-1) 

1290 A$=MID$(A$,J+1) 

1300 IF C$=A$ THEN B$="C — CIERTO" 
1310 RETURN 

1320 REM 0063 06H DR MEM IEIME DIEM IEA 

1330 REM e NULO  *% 

1340 IF A$="NULO ()" THEN B+$=" * NULO 
NECESITA ARGUMENTO x*" 

1350 IF A$="NULO (())" THEN B$="C — C 
IERTO" 

1360 RETURN 

1370 REM 938-446 d6 II MIRE RITO RRA 


1380 REM + MIEMBRO ** 
1390 C$=MID$(A$, 10) 

1400 J=1 

1410 J=J+1 


1420 IF MID$(C$,J,1)=")" OR MID$(C$,J 
s1)="(" THEN D$=LEFTS$(C$,J):GOTO 1450 


O 


O 


O" - A. 0 


177 


O 0 50. “Qu O 


O 


178 


31330 IF J<LEN(C$) THEN 1410 

1440 RETURN 

1450 J=LEN(D$) 

1460 J=3+1 

1470 IF MID$(C$,J,LEN(D$))=D$% THEN C$ 
=LEFTS$ (C$, LEN(C$)-1):GOTO 1630 

1480 IF J<LEN(C$) THEN 1460 

1490 RETURN 

1500 REM 4333 d dE Hd 6 M6 II IE MIME 


13510 REM .*k MIGUAL % 

1520 C$=MID$(A$,9) 

1530 J=0 

1540 J=J+1 

1550 IF MID$(C$,J,1)=" " THEN 1580 


1560 IF J<LEN(C$) THEN 1540 

1570 RETURN 

1580 D$=LEFTS$(C$,J) 

1590 C$=MID$(C$,J+2) 

1600 C$=LEFTS(C$,LEN(C$)2)+" " 

16510 J=0 

1620 J=J+1 

1630 IF MID$(C$,J,LEN(D$))=D*% THEN B$ 
="("+MID$(C$,J):GOTO 1460 

1640 IF J<LEN(C$) THEN 1620 

1650 RETURN 

1660 B$=LEFTS$ (B$,LEN(B$)-1)+")" 

1670 IF RIGHTS (B$,3)=")))" THEN B$=LE 
FTS$ (B$, LEN(B$)-1):GOTO 1670 

1680 RETURN 

1690 REM 43-06-06 IIED HERE IIA 

1700 REN Ak JUNTA $ 

1710 B$=MID$(B$,8) 

1720 B$=LEFTS (B$, Y (1)-8)+" "+MID$(BS, 
Z(3)-6) 

1730 B$=LEFTS (B$,LEN(B$)-1) 

1740 RETURN 

1750 REM dde III RIE IIA 

1760 REM ** INVIERTE —*x 

1770 Bs$="" 

1780 A$=MID$(4$,11):A$=LEFT+ (AF, LENCA 
$)-2) 


1790 CT=0 

1800 J=0 

1810 J=J+1:1F J>LEN(A$) THEN 1920 
1820 IF MID$*(A%,J,1)=" " THEN 1850 


¡SANS A > DS 


O 


¿E SS E SD E E 


2 


18:30 
1840 
1850 


IF MID$(A$,J,1)="("” THEN 1860 
GOTO 1810 
CT=CT+1:G$ (CT)=LEFTS (A$, J-1) :Aé= 


MID$(A$,J+1):GOTO 1800 


1860 
1980 
1370 
1880 
1890 
1900 
1910 


J=J+1: 1F MID$(A$,J,2)="))" THEN 


IF MID$(A$,J,1)=")" THEN 1910 

IF J=LEN(A$) THEN 1900 

GOTO 1860 
CT=CT+1:G$(CT)=A$+")":GOTO 1930 
CT=CT+1:G$ (CT)=LEFTS (A$,J) :A$=MI 


D$(A$,J+1):GOTO 1800 


1920 
1930 
1940 


1950 
1960 
1970 
1980 


CT=CT+1:G$(CT)=A$ 
FOR M=CT TO 1 STEP -1 
B$=B$+6$ (M): IF M>1 THEN B$=B$+" 


NEXT M 

B$=" ("+B$+")" 

RETURN 

CT=CT+1:G$ (CT)=LEFTS$ (A4$, J+1) :A$= 


MID$POKEA$,J+2): GOTO 1800 


1990 
2000 
2010 
2020 
2370 
2030 
2040 
2050 
GOTO 
2060 
2070 
2080 
2090 
2100 


REM III IM IMEI DIE III MIME 

REM 4% MISMO Ex 
E=8:GOSUB 40 

M=ASC(A$): 1F M>47 AND M<58 THEN 


J=0 

J=J+1 

IF MID$(A$,J,2)=") " THEN J=J+1: 
1280 

IF MID$(A$,J3,3)=")))" THEN 2100 
IF MID$(A$,3,2)="))" THEN 2110 
IF J<LEN(A$) THEN 2040 

RETURN 

C$=LEFTS$ (A$, J+2) : A$=MID$ (A$,J+4) 


¿GOTO 1300 


2110 


C$=LEFTS (A$,J+1):A$=MID$ (A$, +3) 


¿GOTO 1300 


2120 
2130 
2140 
2150 
2160 
2170 
2180 


o 
REM ** LISTA  ** 
E=8:GOSUB 40 

BS=" (MA) 

RETURN 

REM III IAEA DE IE IRE IET REE IE IE METER IE III 
REM ** INCL +** 


QT Or ELO O ¿E 


O" YO. O O 


179 


GU “Ur. ESTO SO 


O 


E. Qu ¿Qa “QUO O 


O 


O 


180 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


H% 


E=7:GOSUB 40 

B$=STR$ (VAL (A$)+1) 
RETURN 
TI A 
REM 
E=7:GOSUB 40 

B$=SRT$ (VAL (A$)-1) 
RETURN 
IN 
REM 
IF FLAG=16 THEN E=8 


DECi EX 


CERO? A 


2300 1F FLAG=31 THEN E=7 

2310 GOSUB 40 

2320 IF A$="0" AND FLAG=16 OR A$="1" 
AND _A0=21 CUEN B$="C -— CIERTO" 
2330 RETURN 

2340 REM 40d DEI MI MIER IIA IA 
2350 REM ** DOS ARGUMENTOS 3% 
2360 E=8:GOSUB 40 

2370 J=0 

2380 J=J+1 

2390 IF MID$(A$,J,1)=" ” THEN 2420 


2400 
2410 
co 
2420 
2430 
2440 
URN 
2450 
2460 


ERROR 


IF J<LEN(A$) THEN 2380 
B$=" 


— NO SE ADMITE UN UNI 
ARGUMENTO *": RETURN 


P=VAL (LEFT$ (A$,J-1)) 
Q=VAL (MID$ (A$, J+1)) 
IF FLAG=17 THEN B$=STR$(P-0):RET 


IF FLAG=23 OR FLAG=2S5 THEN B=P/Q 
IF FLAG=25 THEN B=INT (.5+0%(B-IN 


T(B))*1000)/1000 


2470 IF 
2480 IF 
CIERTO" 
2490 IF 
CIERTO" 
2500 IF 
CIERTO" 
2510 IF 
2520 IF 
N 


2530 B+$= 


FLAG=18 
FLAG=11 


FLAG=27 


FLAG=28 


FLAG=32 
FLAG=11 


STR$ (B) 


2540 RETURN 
2550 REM 0463 dd DEMI DEERE DIE DEI III HEHE HI 


THEN B=P"Q 
AND P=0 THEN B$="C — 


AND P>0 THEN B$="C — 


AND P<0 THEN B+$="C — 


THEN B=P-Q 
OR FLAG>26 THEN RETUR 


O 


O 


¡EE AT A. 


O 


2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 


REM xx EXP  XX% 
E=6:G0SUB 40 

GOTO 2370 

REM HI III II LRD IEEE LH IIA 
REM xx MAX MIN SUMA MULT 3% 
F$=LEFTS (A$,3) :A$=MID$(A$, 6) 
CT=0: FLAG=0 

IF F$="MULT" THEN CT=1 

J=0 

J=J+1 

IF MID$(A4$,3,1)=" ” THEN 2690 
IF J<LEN(AS$) THEN 2650 

IF J=LEN(A$) THEN FLAG=1 
P=VAL(LEFT$ (4$,J-1)):1F FLAG=0 T 


HEN A$=MID$(A$,J+1) 


2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


CERO 


IF F$<>"SUMA" AND CT=0 THEN CT=P 
IF F$="MAX" AND P>CT THEN CT=P 
IF F$="MIN" AND P<CT THEN CT=P 
IF F$="SUMA" THEN CT=CT+P 

IF F$="MULT" THEN CT=CTx*P 

IF FLAG=0 THEN 24640 

B$=STR$ (CT) 


RETURN 

REM Id 36 DIEM IIA HA 
REM ** MIN ** 

GOTO 2610 

REM Is 6 HIM IM AIRE 
REM $. SUMA +A 
F$="SUMA" 

A$=MID$(A$, 7) 

GOTO 2620 
DA 
REM ** MENOS  —*x 


E=8:GOSUB 40 
B$=STR$ (—VAL (A$) ) 


RETURN 

REM Ide Id MEME IMHE 
REM ** DIVIDE —*%x 
E=9:GOSUB 40 

GOTO 2370 

REM III MIMI III EN II 
REM **  RECIP.— xx 


E=8:GOSUB 40 
IF A$="0" THEN B$=" DIVISION POR 
5 ILEGAL ”":RETURN 


O 


Ou ¿02 “O 
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01 20 O. 395 0 ¿07 1407 O “OO 


O 
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2990 B=1/(VAL (AS) ) 

3000 B*$=STR+$ (B) 

3010 RETURN 

3020 REM 443626 16d dE IE MAI IE MM II IE IE 
3030 REM *e RESTO xXx 

3040 E=8:GOSUB 40 

3050 GOTO 2370 

3060 REM Hd1 063636 dE IE IE IE LE II III DM IE 
3070 REM Ak MULT LX 

3080 F$="MULT" 

3090 A$=MIDS$(A$,7) 

3100 GOTO 26520 

3110 REM 33446346 IE HE DEE HE HE DE RIIIE 
3120 REM ad MAYOR k 

3130 E=8:GOSUB 40 

3140 GOSUB 2370 

3150 REM 06-114 MIE IE DEE HE REI III IAE IRE 
3160 REM ** MENOR % 

3170 E=8:GOSUB 40 

3180 GOTO 2370 

31920 REM 4460246 I0 III EH IE IE IM II III HA 
3200 REM A NEGATIVO? + 
3210 E=12:GOSUB 40 

3220 IF VAL(A$)<0 THEN B$="C — CIERTO 
3230 RETURN 

3240 REM 4d 46 36 dd 6H IE HEEE II IIA E HE 
3250 REM ** NUMERO? A 
3260 A$=MID$(A$,10) 

3270 IF ASC(A$)>44 AND ASC(A+)<58 THE 
N B$="C — CIERTO) " 

3280 RETURN 

3290 REM 4644 III III IE DE HE III IE EE 
3300 REM *e DEFINE — *% 

3310 A$=MID$(A$,9) 

3320 F$=LEFTS$ (A$, X (2) -9) 

3330 G$=MID$(A$,X (4)-6) 

3340 J=0 

3350 J=J+1 

3360 IF MIDS$(G$,J,1)=" " THEN 3390 
3370 1F J<LEN(G$) THEN 3350 

3380 B*$=" ERROR EN LA DEFINICION ":RE 
TURN 

3390 G$=LEFTS$ (G$, J-1) 

3400 NWDS=NWDS+1 


O O. DD: G Y 


O 

















3410 0% (NWDS) =G$: N$ (NWDS) =F$ 

3420 Bs$=F$ 

3430 RETURN 

3440 REM ARI II E MEME III III IIA EME 

3450 REM INICIALIZACION 

3460 CLS:KEYOFF 

3470 DIM G$(20),0$ (20) ,N$ (20),X(12),Y 
(12),Z (12) 

3480 NWDS=0: REM CONTADOR DE NUEVAS 
PALABRAS DEFINIDAS POR EL USUARIO 

3490 GOTO 70 

3500 CLS 

3510 LOCATE 3,10 

3520 PRINT "QUIERES TERMINAR ?2 (S,N 
y 

3530 A$=INKEYS 

3540 IF A$="S" THEN CLS: END 

3550 IF A$="N" THEN CLS:GOTO 70 

3560 GOTO 3530 


O 


O 





O5 “Qe ¿02.0 
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Apéndice A 


Algunos comentarios 
sobre los lenguajes 


declarativos 
LISP y PROLOG 


Definición de lenguaje de programación 


El glosario desarrollado por la Federación Internacional para el Tratamien- 
to de la Información (FITI), y publicado con el título Vocabulary of Information 
Processing por North-Holland Publishing, Co. (Amsterdam, Holanda, 1966), en 
su página 79 define a la palabra lenguaje como “término general asociado a un 
conjunto de símbolos definidos y un conjunto de reglas o convenciones que 
gobiernan la forma en que se pueden combinar dichos símbolos para conseguir 
un proceso de comunicación significativo”. Acompaña a esta definición la nota 
siguiente: “Un lenguaje que no es ambiguo, pensado para expresar programas, 
se denomina lenguaje de programación.” 

Los lenguajes de programación y sus dialectos se cuentan por centenares, si 
no por millares. Los lenguajes naturales de comunicación humana quizá les supe- 
ren en número, pero en determinados aspectos los lenguajes de programación 
divergen todavía más. Cada lenguaje tiene su gramática y su sintaxis, así como 
la manera de expresar las ideas, y, en principio, dependiendo de la tarea a 
realizar o el problema a resolver, la labor de escribir un programa se facilita 
enormemente seleccionando determinados lenguajes en vez de otros. 
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Clasificación de los lenguajes de 
programación 


No es fácil clasificar los lenguajes de programación, ya que un lenguaje 
determinado puede pertenecer a las dos categorías que se van a indicar a 
continuación, pero sirven para clarificar las ideas en la torre de Babel que 
forman los actuales lenguajes de programación. 

En informática se utiliza la palabra variable para hacer referencia a una 
localización de memoria a la que se le ha asignado un nombre. El contenido de 
la localización de memoria es el valor de la variable. 

Los lenguajes de programación pueden actuar de dos formas muy diferentes 
sobre las variables, y en función de esta actuación vamos a clasificarlos en 
lenguajes imperativos y lenguajes declarativos. 


Lenguajes imperativos 


Estos lenguajes ofrecen un conjunto especifico de operaciones ejecutables y 
de sentencias, entre las que destaca la de asignación, que permiten modificar los 
valores de las variables. Mediante una adecuada organización de dichas senten- 
cias se obtiene el programa que resuelve un problema determinado. Ejemplos 
característicos de lenguajes imperativos son: BASIC, FORTRAN, COBOL, 
PASCAL, C, etc. 


Lenguajes declarativos 


Estos lenguajes tienen la propiedad conocida como transparencia referencial, 
es decir, prohíbe asignar valores diferentes a una variable durante la ejecución 
del programa. Por tanto, las variables son tales en el sentido de que de una 
ejecución a otra pueden variar, pero una vez comenzada la ejecución son 
variables estables. 

Cuando se utilizan lenguajes imperativos se especifica el procedimiento para 
resolver cada problema, mientras que con los lenguajes declarativos se especifica 
qué tipo de solución se busca. Por ejemplo, para calcular el cubo del número 10 
con un lenguaje imperativo, se inicializa la variable CUBO a 1 y, después, 
mediante un bucle formado por 3 lazos, se hace CUBO igual a CUBO por 10. 
Con un lenguaje declarativo se debería definir qué significa cubo y después 
preguntar: ¿Cuál es el cubo de 10? 

Dos ejemplos característicos de lenguajes declarativos son el LISP y el 
PROLOG. 


186 


LISP 


Este es el más antiguo de los lenguajes declarativos. Desde la época en que 
se diseñó por John McCarthy en el Instituto Tecnológico de Massachusetts han 
aparecido numerosas versiones con características imperativas, pero a pesar de 
ellos sigue manteniendo la posibilidad de actuar como lenguaje declarativo 
puro. 

La estructuración estándar de datos es la lista y el lenguaje ofrece funciones 
de selección como car y cdr, funciones de construcción como list y cons y pre- 
dicados como null. 

Mediante lo que se denomina expresión lambda se puede definir y manipu- 
lar funciones. 

La unidad básica en un programa LISP es la expresión, y cada una calcula 
un valor. 

La recursión es el único mecanismo de control. 

Su historia puede resumirse de la forma siguiente: el trabajo se inició en 
1959 por el Grupo de Inteligencia Artificial de MJT, bajo la dirección del 
profesor John McCarthy; la versión inicial se publicó en marzo de 1960 y se 
implementó en un JBM 704. Posteriormente se desarrolló la versión 1.5 para el 
JBM 709. La razón para este esquema de numeración se supone que fue debido 
a que los cambios y mejoras efectuadas no eran como para denominarla ver- 
sión 2. Como resultado de esta política fueron apareciendo sucesivas versio- 
nes: 1.75, 1.9, etc. 

El lenguaje LISP no es muy usual debido a que no está bien preparado para 
cualquier cosa que no sea manipulación simbólica, procesos recursivos y proce- 
sado de listas. Es extremadamente difícil de leer y de escribir debido a la 
existencia de una gran cantidad de paréntesis, que lo convierte en excesivamente 
propenso a los errores. No está pensado para personas sin o con poca experien- 
cia, ya que requiere una base ligeramente sofisticada para apreciar y utilizar su 
eficiencia. 

Actualmente las versiones existentes son independientes de la máquina. 

La aportación más significativa de todas las versiones anteriores a la 2 es su 
contribución al desarrollo de la teoría general de la programación. 

LISP 2 se creó con objeto de resolver los problemas que tenían las versiones 
anteriores, y que son las siguientes: 


— Aritmética muy lenta, haciendo impracticable la utilización del LISP para 
cálculo. 

— Notación muy desventajosa por exceso de paréntesis. 

— Necesidad de escribir todas las expresiones matemáticas en notación 
polaca. 


Por todo ello, en 1963 un grupo del Instituto Tecnológico de Massachusetts 
se puso a trabajar en una versión más eficiente. La versión LISP 2 se diferencia 
fundamentalmente en que el lenguaje fuente se basa en el ALGOL 60, con 
algunos de los conceptos del LISP añadidos. 
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Según sus diseñadores, algunas áreas de aplicación típicas para el LISP 2 
son: manipulación algebraica, análisis lingiístico, inteligencia artificial, reconoci- 
miento de estructuras, cálculo numérico, etc. Excluyendo el campo de la gestión, 
parece ser, por lo dicho, que este lenguaje es el más ambicioso de los creados 
hasta la fecha, aunque parece poco probable que en alguna de las áreas 
indicadas pueda llegar a desbancar a otros lenguajes fuertemente introducidos. 

A pesar de estar basado en ALGOL, el lenguaje no es una extensión del 
ALGOL, aunque sus conocedores encontrarán el aprendizaje del LISP 2 facili- 
tado en gran medida. En la actualidad no está todavía extendido. 


Bibliografía 


En el conjunto de referencias dadas se han agrupado, por su orientación: 


— Manuales de definición realizados por los diseñadores: 


1. McCarthy, J., y otros: LISP 1.5 Programmer's Manual, M. J. T. 
Computation Center and Research Laboratory of Electronics, Cam- 
bridge, Mass. (agosto 1962). 


— Publicaciones de introducción al proceso de listas con discusión de los 
conceptos de listas: 


1. Wilkes, M. V.: «Lists and why they are useful”, Proc. ACM 19th Nat. 
L Conf., 1964, pp. 1-15. 

2. Woodeard, P. M.: “List programming”, en Advances in Programming 
and Non-Numerical Computation (L. Fox, ed.), Pergamon Press, Nue- 
va York, 1966, pp. 29-48. 


— Libros sencillos introductorios: 


1. Berkeley, E. C., y Bobrow, D. G.: The Programming Language 
LISP. Its -Operation and Applications, M. J. T. Press, Cambridge, 
Mass., 1966. 

2. Weissman, C.: LISP 1.5 Primer, Dickenson Publishing Co., Belmont, 
California, 1967. 


LISP 2 
— Manuales de definición: 


1. Abrahams, P. W., y otros: The LISP 2 Programming Language and 
System, Proc. FJCC, vol. 29 (1966), pp. 661-676. 
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—Libros de introducción: 


1. Levin, M., y Berkeley, E.: LISP 2 Primer, System Development Corp., 
TM-2710/101/00 (draft), Santa Mónica, California (julio 1966). 


PROLOG 


Este lenguaje fue inventado en Francia y mejorado en Inglaterra, aunque 
existe actualmente la polémica sobre su paternidad, que también se atribuye un 
grupo de investigadores húngaros. En la actualidad se le puede considerar como 
un lenguaje incompleto, pues muchas versiones carecen de controladores de 
periféricos, se quedan cortas en cuanto a capacidad de cálculo, pues tan sólo 
utiliza los enteros positivos y las operaciones elementales (suma, resta, multipli- 
cación y división), y carecen de control de errores. 

Desde 1972 han aparecido varias implementaciones (Marsella, Edimburgo, 
Imperial College, Waterloo, etc.), cada una con diferente sintaxis. 

A diferencia de otros lenguajes en los que los programas se forman mediante 
conjuntos de funciones, un programa PROLOG está formado por una sucesión 
de relaciones y reglas relativas a un sujeto. Todo ello forma una base de datos 
de información que se puede consultar o aumentar. 

PROLOG es el acrónimo de PROgramming in LOGic. La programación 
lógica debe su origen al desarrollo de la lógica en general y a los avances de 
la lógica matemática en particular. 

En la década de los cincuenta, los lógicos inclinados hacia la informática 
comenzaron a investigar técnicas para automatizar las demostraciones de los 
teoremas matemáticos. 

Dos hitos tuvieron lugar a mitad de los años sesenta. Alan Robinson 
desarrolló la regla de resolución por inferencia y Donald Loveland desarrolló el 
modelo para la prueba por eliminación. Hasta 1970, ambos métodos, que 
estaban expresados mediante notaciones diferentes, permanecieron completa- 
mente desconectados. Ese año, Donald Kuchner demostró que el modelo de 
eliminación y una forma de resolución denominada “lineal” podrían ser contem- 
pladas como equivalentes. Robert Kowalski y sus colaboradores desarrollaron 
una síntesis de ambos métodos que denominaron resolución SL. De forma 
independiente, pero al mismo tiempo, Donald Loveland y Raymon Reiter 
desarrollaron métodos de prueba similares. 

En 1972, Alain Colmeraner y Phillippe Roussel, en Marsella, diseñaron e 
implementaron PROLOG como un desarrollo de la resolución SL, construyen- 
do un intérprete escrito en ALGOL. A partir de ese momento se han diseñado 
versiones mejoradas para distintos equipos. 

La popularidad del PROLOG se ha incrementado enormemente desde que 
los japoneses anunciaron que su utilización sería uno de los principales elemen- 
tos en su proyecto de construcción de los ordenadores de la quinta generación, 
que incorporarán los lenguajes tipo PROLOG al nivel de los actuales “lengua- 
jes máquina”. 
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Bibliografía 


Clark, K., y McCabe, F. G.: Micro-PROLOG: Programming in Logic, Prentice- 
Hall, Englewood Cliffs, New Jersey, 1984. 


Ejemplos 


Con objeto de ilustrar la forma de actuación de un lenguaje de programa- 
ción del tipo declarativo y mostrar la propiedad de transparencia referencial, 
vamos a usar un ejemplo muy conocido e indicaremos la actuación del 
PROLOG en este caso. 

Suponganos que tenemos las siguientes afirmaciones dadas en el orden 
siguiente: 


Turing es humano A1 
Sócrates es humano A2 
Sócrates es griego A3 


X es falible si X es humano  A4 


Y supongamos que tenemos que resolver el problema de encontrar un 
griego falible planteado de la forma siguiente: 


Y es falible e Y es griego? 


PROLOG trabajaría de forma automática resolviendo sucesivamente los 
siguientes subproblemas: 


— Teniendo en cuenta A4 transforma la pregunta en 


Y es humano e Y es griego? 


— Teniendo en cuenta Al y, además, como no hay condiciones en Al, 
transforma la pregunta en 


Turing es griego? 

Como no puede resolver esto, vuelve a la pregunta anterior: 
Y es humano e Y es griego? 

Utiliza A2 y de forma análoga se plantea: 


Sócrates es griego? 


PROLOG resuelve el problema definitivamente con la afirmación A3 y, por 
tanto, realiza la deducción Y =Sócrates. 
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Apéndice B 


Teorema de Bayes 
y probabilidades 


El reverendo Thomas Bayes, que vivió de 1702 a 1761, fue un ministro 
presbiteriano y un cualificado matemático. Los sistemas expertos apenas podían 
soñarse en su tiempo (y sus técnicas se hubieran atribuido probablemente al 
diablo). A pesar de ello, sus trabajos encuentran rápidas aplicaciones en cual- 
quier campo (como el de los sistemas expertos) donde las probabilidades de que 
ocurran ciertos sucesos tienen que modificarse conforme se acumula informa- 
ción adicional. 

Es de sospechar que Bayes no podía estar satisfecho. Inició el camino que 
conduce al desarrollo de su teorema al expresar la admirable hipótesis de que la 
existencia del Todopoderoso podía demostrarse mediante el examen de las 
bellezas matemáticas existentes en el mundo que El había creado. “Probaré 
—dijo-— que el Principio Final de la Divina Providencia... es la Felicidad de Sus 
Criaturas, y lo haré mediante las matemáticas.” 

Desafortunadamente, cuanto más avanzaba en sus estudios, más se alarma- 
ba por las implicaciones de sus descubrimientos. Finalmente, cerró el libro 
sobre su trabajo, y decidió que no podía publicarlo en su época. 

Sin embargo, el trabajo que hizo era sólido y descansa en el corazón de la 
moderna teoría de las decisiones. A menudo se le llama, en su honor, teoría de 
la decisión de Bayes. Su teorema nos proporciona un medio matemático ade- 
cuado de evaluar información nueva, y de utilizarla para modificar estimaciones 
anteriores —basadas en datos limitados— de la probabilidad de que un resulta- 
do particular ocurra. Nos permite actuar en base a informaciones parciales 
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—<omo a menudo tendrá que hacer un sistema experto— y después evaluar y 
revisar nuestras decisiones conforme nos llegan más datos. 

Para comprender el teorema de Bayes y ver cómo puede valernos para el 
desarrollo de nuestros propios sistemas expertos, necesitamos saber un poco de 
probabilidades. 

La probabilidad de que un suceso ocurra es el número de casos favorables 
dividido por el de casos posibles. Esto es, la probabilidad de que una moneda 
caiga de cara es 1 (número de resultados en los que se da el suceso en cuestión) 
dividido por 2 (número de resultados posibles, despreciando el caso de que 
caiga de canto). 

Para poner lo anterior en forma de ecuación, en la que P(resultado) indica 
la probabilidad de tal resultado, podemos escribir: 


número de resultados favorables 


P (resultado). =—_—_—_—_—_—_—_—_—— 
número de resultados posibles 


Para el caso de lanzamiento de una moneda, podríamos escribir: 


Si analizamos más de un suceso (contrariamente al caso del lanzamiento 
de una moneda en el que solamente nos interesamos en un único lanzamiento de 
una única moneda), los sucesos pueden ser mutuamente excluyentes (si llueve no 
puede ser que no esté lloviendo) o no mutuamente excluyentes (puede hacer frío 
y haber niebla). 


Sucesos mutuamente excluyentes 

La probabilidad en el caso de sucesos mutuamente excluyentes es la proba- 
bilidad de que el resultado X o el resultado Y ocurra. En este caso las 
probabilidades se suman, así: 


P(resultadoX O resultadoY) =P (resultadoX) + P(resultadoY) 


Supongamos que tiramos un dado. Queremos saber la posibilidad de que 
salga un tres: 


1 
P(tres) a 


La probabilidad de que salga un cinco, P(cinco), es la misma, un sexto. El 
dado no puede caer mostrando dos números a la vez (no tenemos en cuenta si 
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está apoyado sobre un objeto), por lo que los sucesos son mutuamente excluyen- 
tes. Esto significa que la probabilidad de que un dado caiga mostrando un tres 
o un cinco se puede expresar así: 


w|= 


A 

P(tres O cinco) =P (tres) + P(cinco) 6 + e 

En otras palabras, la probabilidad de que al tirar una sola vez un dado 
salga un tres o un cinco es de un tercio. 

Al tirar el lado anterior puede que salga, o no, un tres o un cinco. ¿Cuál 
es la probabilidad de que NO salga un tres o un cinco? Está claro que 
esta probabilidad es 2/3 o 1-1/3. La probabilidad de que un suceso ocurra más 
la probabilidad de que no ocurra debe ser igual a 1: 


P(suceda) + P(no suceda) = 1 
..lo que equivale a... 


P(no suceda) = 1 — P(suceda) 


Sucesos que no son 
mutuamente excluyentes 


Supongamos que tenemos una llave que únicamente abre una de las seis 
cajas que están sobre una mesa enfrente de nosotros y no sabemos qué caja es. 
Sin embargo, sabemos el contenido de ellas: un cuaderno negro, una bola 
negra, un cuaderno verde, una bola roja, un cepillo de dientes negro, y un ratón 
hinchable. Probamos a abrir con la llave cada una de las cajas, hasta que una 
lo hace. ¿Cuál es la probabilidad de que la caja que abrimos contenga algo 
negro o una bola? Obviamente estos sucesos no son mutuamente excluyentes, 
ya que hay un objeto (la bola negra) que satisface ambas condiciones. 

No obstante, el abrir una caja que contenga una bola no implica necesaria- 
mente que tal bola sea negra. Pero debido a que la posibilidad de abrir una 
caja cuyo contenido satisfaga ambas condiciones existe, necesitamos reducir la 
probabilidad de que cada condición quede satisfecha, en la probabilidad de que 
queden satisfechas ambas. 

La probabilidad de obtener un objeto negro es 3/6, y la de obtener una 
sola 2/6. La ecuación que representa la probabilidad de seleccionar una bola o un 
objeto negro (es decir, la probabilidad de dos sucesos que no son mutuamente 
excluyentes) es: 


P(negro O bola) =P(negro) + P(bola) — P(negro Y bola) 
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En palabras, esta ecuación significa: la probabilidad de escoger un objeto 
negro o una bola es igual a la probabilidad de escoger un objeto negro más la 
probabilidad de escoger una bola, menos la probabilidad de escoger un objeto 
negro que además sea una bola (una bola negra): 


P(negro O bola) = 3/6 + 2/6 — 1/6 
= 5/6 — 1/6 
= 4/6 
= 2/3 


Independencia estadística 


Tal vez se pregunte qué relación tiene todo esto con el reverendo Bayes. La 
tiene, y quedará muy clara después. El trabajo de Bayes no se puede explicar 
hasta que hayamos acabado con las probabilidades. 

Si, cuando golpea a alguien en la cara con su poderoso puño-martillo, más 
tarde se le pone un ojo morado, decimos que los sucesos son estadísticamente 
dependientes. La probabilidad de que el segundo suceso acaezca (el ojo se va 
poniendo morado) está íntimamente relacionada con la probabilidad de que 
usted golpee a alguien en un ojo lo suficientemente fuerte con su puño. Sin 
embargo, el solo hecho de que los dos sucesos ocurran seguidos no significa que 
sean siempre estadísticamente dependientes. Lanzamos al aire una moneda y 
cae de cara. La lanzamos otra vez. La probabilidad de que salga cara en este 
segundo lanzamiento es totalmente independiente del resultado del anterior 
lanzamiento. 

Si denominamos P(cuatro) a la probabilidad de sacar un cuatro al tirar un 
dado, y P(seis) a la de sacar un seis, la probabilidad de obtener un cuatro en la 
primera tirada y un seis en la segunda puede expresarse así: 


P(cuatro Ñ seis) = P(cuatro) x P(seis) 


(donde P(cuatro N seis) representa la probabilidad de obtener un cuatro y un 
seis, juntos o en sucesión). 

La probabilidad de obtener un cuatro es 1/6 y la de obtener un seis es 
también 1/6; entonces, la probabilidad de obtener un cuatro seguido de un seis 
es 1/6 veces 1/6, es decir, 1/36. La probabilidad de obtener un cuatro, seguido 
de un seis, seguido de un tres, es 1/6 veces 1/6 veces 1/6 veces, o 1/216. 
Expresado en forma de ecuación, tenemos: 


P(cuatro NM seis N tres) = P(cuatro) x P(seis) x P(tres) 
La probabilidad de que esto no ocurra (es decir, la probabilidad de que no 
salga un cuatro en la primera tirada, un seis en la segunda y un tres en la 


tercera) es uno menos la probabilidad de que ello ocurra: 


P(NO (cuatro ÑN seis M tres)) = 1 — P(cuatro) x P(seis) x P(tres) 
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Este procedimiento de calcular la probabilidad de que un suceso no ocurra 
es válido para cualquier situación; basta con restar de uno la probabilidad de 
que el suceso ocurra. Si la probabilidad de obtener un seis al tirar un dado, 
P(seis), es 1/6, la probabilidad de que no salga un seis es 1 — 1/6, es decir, 5/6. 


Probabilidad condicional 


La probabilidad condicional se refiere a la posibilidad de que ocurra el 
suceso Y, dado que ha ocurrido el X. Se denota por P(Y/X). Si los sucesos son 
estadísticamente independientes, la probabilidad de Y dado que X ha ocurrido, es 
(tal vez le sorprenda) simplemente la probabilidad de que ocurra el suceso Y, 
o sea, P(Y). 

¿Por qué es esto así? Si tiramos un dado, la probabilidad de que otra vez 
salga un seis sigue siendo 1/6. El lanzamiento del dado no influye en los 
resultados de los lanzamientos siguientes. 

Téngase en cuenta que en este caso, de independencia estadística, pregunta- 
mos por la probabilidad de que Y ocurre, dado que X ha ocurrido y no por la 
probabilidad de que ocurra el suceso “Y y X”. 


Dependencia estadística 


Lamento tener que decir que las cosas se ponen algo más complicadas 
cuando la probabilidad de un segundo depende de la probabilidad de otro 
anterior. 


Probabilidad condicional 


Imaginemos una situación en la que disponemos de una llave que abre una 
de las nueve cajas que tenemos delante. Cinco de ellas contienen libros escritos 
por Tim Hartnell; dos, libros escritos por el Dr. Rodnay Zaks, y las dos 
restantes, libros de Grace Murray Hopper (diseñadora del lenguaje COBOL). 

La probabilidad de que la caja abierta con la llave contenga cualquiera de 
los libros es 1/9. Tenemos nueve libros y todos ellos tienen la misma probabili- 
dad de ir a parar a la caja que abrirá la llave. Sin embargo, supongamos que la 
caja que hemos abierto contiene un libro escrito por un varón. La probabilidad 
de que esto ocurra es 7/9. ¿Cuál es la probabilidad de que el autor sea Rodnay 
Zaks? Esto lo podemos representar por P(Z/V), la probabilidad de que el libro 
sea de Zaks, P(Z), dado que el autor del libro es varón, P(V). 

Sabemos que el libro es de un autor masculino. Para calcular la probabili- 
dad de que tal autor sea Zaks, ignoramos los libros escritos por Hopper, ya que 
no vienen a cuento en esta situación. Sabemos también que hay siete libros 
escritos por autores varones, dos de los cuales son de Zaks. Para hallar las 
probabilidades, en cuanto a estos siete libros, de que los autores sean Zaks y 
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Hartnell, respectivamente, dividimos el número de libros de cada uno de ellos, 
por el número de libros escritos por un varón. 


P(Z/V) = 2/7 
P(H/V) = 5/7 


Estas probabilidades añadidas suman uno, tal como cabe esperar. La proba- 
bilidad de que la caja abierta contenga un libro escrito por Zaks, dado que el 
autor es varón, es de 2/7; la probabilidad de que sea de Hartnell, es de 5/7. 

Hay una mayor probabilidad, dado que el autor es varón, de que el libro 
sea de Hartnell a que lo sea de Zaks. Para calcular la probabilidad de que el 
libro sea de Zaks dado que su autor es varón, P(Z/V), dividimos la probabili- 
dad de Zaks por la probabilidad de que sea un autor varón, P(V), siendo P(V) 
igual a P(Z) más P(H): 


pan O _ 2/9 022 
lides P(V) 7/9 0.7777 


= 0.286 

Como comprobación de lo anterior, podemos razonar que hay siete libros 
de autores varones. Si el libro que tenemos es de autor varón, hay dos 
posibilidades (entre siete) de que sea de Zaks. Por tanto, si nuestro método 
anterior de cálculo de P(Z/V) es correcto, debería dar el mismo resultado, 2/7 
(que es la probabilidad de que, entre siete libros, dos de los cuales son de Zaks, 
el libro elegido sea de él). De hecho así es. 

Entonces, la probabilidad condicional, cuando los sucesos son estadística- 
mente dependientes, se expresa así: 


P(YNX) 
A 


donde P(Y N X) es la probabilidad de que ocurran juntos los sucesos X e Y. 


De vuelta a Bayes 


Lo anterior, por fin, nos traslada a una posición desde la que podemos 
valorar el trabajo del buen reverendo. Como recordará, al principio de esta 
sección dije que el teorema de Bayes nos proporciona un medio de utilizar in- 
formación obtenida posteriormente para modificar estimaciones anteriores, basa- 
das en datos limitados, de la probabilidad de que un suceso particular ocurra. 

Supongamos que tenemos dos urnas, cada una de ellas con 25 bolas de 
madera. En una de las urnas (U1), hay 14 negras y 11 rojas. En la otra (U2), 
hay 19 negras y 6 rojas. Escojamos una urna al azar, metamos la mano y 
saquemos una bola. Resulta ser negra. ¿Cuál es la probabilidad de que la haya- 
mos sacado de U2? 
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La probabilidad de seleccionar Ul o U2 es 1/2 (0.5). La probabilidad de 
sacar una bola negra de Ul es 14/25 (0.56), y la probabilidad de sacarla de U2 
es 19/25 (0.76). La probabilidad de sacar una bola negra y precisamente de Ul 
es 0.5 veces 0.56 (0.28) y la probabilidad de que sea negra y de U2 es 0.5 veces 
0.76 (0.38). La probabilidad total de que la bola extraida sea negra es la suma 
de ambas probabilidades, 0.28 más 0.38 (0.66). La probabilidad, entonces, de 
que la bola que hemos sacado pertenezca a Ul es (PU1 N negra)/P(negra), o 
sea, 0.28 dividido por 0.66, que es aproximadamente 0.424, y la probabilidad de 
que pertenezca a U2 es 1—0.424 o 0.576 (como solamente las podemos extraer 
de Ul y de U2, la suma de ambas probabilidades debe ser igual a 1). 

¿Qué nos dice esto? ¿Qué significado tienen el 0.424 o el 0.576? Antes de 
efectuar la extracción de la bola, habríamos dicho que la probabilidad de que 
perteneciera a una u otra urna era la misma, 0.5, pero ahora —después de 
hecha solamente una extracción— podemos decir que es más probable que la 
bola proceda de U2 que de Ul. 

Reemplazamos la bola, barajamos las urnas y sacamos otra bola. Suponga- 
mos que de nuevo es negra. ¿Podemos decir, con cierta confianza, que las 
probabilidades anteriores son válidas, después de que ha vuelto a salir de U2? 
La probabilidad de que las dos bolas negras vinieran de Ul es 0.5 veces 0.56 
veces 0.56 (0.159) y la probabilidad de que ambas vinieran de U2 es 0.5 veces 
0.76 veces 0.76 (0.289). Si sumamos esto, obtenemos la probabilidad de sacar 
dos bolas negras de forma consecutiva (0.159 más 0.289 es 0.448). 

Ahora, ¿cómo calculamos la probabilidad de que cogiéramos la segunda 
bola negra de U2? 

La probabilidad de sacar dos bolas negras de forma consecutiva de Ul es la 
probabilidad de escoger Ul y sacar dos bolas negras de ella (0.159) dividida por 
la probabilidad de sacar dos bolas negras de forma consecutiva (0.448), que es 
0.355. La probabilidad de sacar dos bolas negras de forma consecutiva de U2 
deberá ser 1—0.355, es decir, 0.645. Comprobémoslo: La probabilidad de escoger 
U2 y sacar dos bolas negras de ella (0.289) dividida por la probabilidad de 
sacar dos bolas negras de forma consecutiva (0.448), que es 0.645 tal y como lo 
habíamos previsto. 

¿Adónde hemos llegado? ¿Sabemos algo más que al principio? Comenzamos 
este proceso con la única información de que teníamos una posibilidad entre 
dos (0.5) de escoger Ul o U2. Después de sacar una sola bola, que resultó ser 
negra, podíamos decir que la probabilidad de que procediera de Ul era 0.424 y 
la probabilidad de que viniera de U2 era 0.576. Reemplazamos la bola, baraja- 
mos y sacamos otra más. De nuevo resultó ser negra. Hicimos otra vez los 
cálculos y decidimos que la probabilidad de que la bola viniera de Ul era 0.355 
y 0.645 que viniera de U2, Esto nos permite decir que si sacamos dos bolas de 
forma consecutiva (reemplazando la primera antes de sacar la segunda), y 
ambas eran negras, la probabilidad de que viniesen de U2 es 0.645. 
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Apéndice C 
Bases de datos 


El poder de los sistemas expertos en el futuro se deberá a la eficacia e 
inteligencia del bloque deductivo, y a la calidad y extensión de la base de 
conocimientos a la que el sistema pueda acceder. 

En el futuro próximo, la información que la base de conocimientos podrá 
mantener será fundamentalmente de naturaleza textual, ya que los ordenado- 
res actuales son mucho mejores manipulando los símbolos que representan 
textos que aquellos otros símbolos complejos tales como los que codifican una 
imagen animada en color. Actualmente, aproximadamente un 55 por 100 del 
material manejado por un típico ordenador de empresa es texto; el 30 por 100, 
datos, y el resto, un 15 por 100, información de imágenes. 

Al establecer una base de datos para que acceda a ella un sistema experto, 
hay tres cosas que se deben tener en cuenta. Estas son: 


e El coste del mantenimiento de la información. 
e La velocidad de comunicación de la información. 
e La realidad de la información mantenida. 


También se debe tener en cuenta el tamaño total de la información a 
manipular. 
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El coste de almacenamiento 
de información 


El coste del mantenimiento de información se ha reducido drásticamente a 
lo largo de los últimos treinta años. El cuadro siguiente —que muestra los 
costes brutos del mantenimiento de la información que cabe en un folio— lo 
ilustra de forma convincente. 











En memoria En línea 
Año principal acceso directo 

1950 225 000 000.00 $ NN 

1960 70 000.00 $ 12 000.00 $ 
1970 11 500.00 $ 2 500.00 $ 
1975 2 750.00 $ 250.00 $ 
1980 275.00 $ 20.00 $ 
1983 120.00 $ 15.00 $ 
1985 (estimación) 12.00 $ 0.75 $ 
1990 (estimación) 2.00 $ 0.12$ 


Las dos últimas cifras son posiblemente estimaciones muy conservadoras. 
En 1987, el almacenamiento electrónico será el método más barato disponible 
para guardar texto, y nos ofrecerá, por supuesto, la ventaja adicional de la 
accesibilidad inmediata, búsqueda veloz y comunicación rápida. Dos años más 
tarde, el almacenamiento electrónico ofreciéndonos color total, acceso directo y 
animación, será el medio más barato de guardar información de imágenes. 


Características de la información 
en las bases de datos 


¿Cuáles son las características de los grandes volúmenes de información, tales 
como los que se guardarán en las bases de conocimiento? Hay tres niveles. El 
primero es el de los datos puros, un conjunto de hechos inconexos. El segundo 
nivel es el del conocimiento estructurado o categorizado, mantenido de forma 
que pueda ser manejado. Esta estructura es vital si se quiere que la información 
tenga algún sentido. El tercero —y presumiblemente el nivel más valioso, en la 
mayoría de los casos— es el del “conocimiento asociado”, en el cual no sola- 
mente se guarda información, sino que, en él, la base de conocimientos almace- 
na las relaciones entre los elementos de la base de datos. 

Las decisiones más importantes que se tomarán en la próxima década se 
referirán a la forma en la cual se mantendrán las bases de conocimiento y sus 
interrelaciones. Hay muchas maneras de almacenar las bases de conocimientos, 
y la información relativa a las relaciones entre los elementos de esas bases y el 
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tipo de decisiones que tomemos ahora sobre ellas nos obligará, quizá para 
siempre, a utilizar tales formas de organización. Un problema actual relacionado 
con ello es la magnitud total de la tarea de convertir “bases de datos viejas” 
(mantenidas en formas tales como archivos de papel) en formas electrónicas. 

En Gran Bretaña, por ejemplo, el Departamento de Sanidad y Seguridad 
Social se enfrenta actualmente a dos problemas. Posee actualmente unos 26,5 
millones de nombres en archivos activos, relacionados por cosas tales como su 
localización geográfica, y una enorme “base de reglas” que contiene información 
tal como la forma de hacer los pagos, a quiénes y bajo qué circunstancias. De 
acuerdo con este Departamento, la tecnología actual no está capacitada para 
manejar la “base de reglas”. Sin embargo, los métodos actuales no son adecua- 
dos por más tiempo, por lo que, incluso antes de que exista la tecnología 
adecuada, es necesario decidir cómo se mantendrá la información, de forma 
que, cuando la tecnología esté disponible, no resulten excesivamente perjudica- 
dos, al quedarse limitados a formas primitivas. Esto nos indica el tipo de 
problema con el que se enfrenta gran parte de la actual organización del 
conocimiento. 


Cómo se mantiene la información 


En la forma actual de mantener información se distinguen tres componentes 
principales. El más importante, en el presente, es la base de datos, seguido por 
el trabajo que ahora se está desarrollando sobre sistemas expertos. El tercer 
componente, que discutiremos en seguida, está peor definido, pero, aun así, 
constituye una parte importante de los medios actuales de guardar el conoci- 
miento. 

Las bases de datos empezaron como simples matrices bidimensionales, y de 
ellas han evolucionado hasta lo que ahora se denomina “bases de datos relacio- 
nales”. El mayor problema de una base de datos es que se necesita saber de 
antemano cómo se organizará la información. Esto, tal como advertiremos si 
pensamos un poco, puede limitar en gran medida la efectividad y flexibilidad de 
una base de datos. 

El segundo componente de la forma actual de mantener el conocimiento es 
el desarrollo de bases expertas para manejarlas mediante bloques de inferencia. 

El tercer componente puede definirse mejor mediante el término “tecnología 
de transferencia”. Es la capacidad para coger ideas de un área y aplicarlas en 
otras, o en conjunción con otras tecnologías (tales como la enseñanza, aprendi- 
zaje basado en ordenador y la utilización de “video interactivo”, donde los 
discos de laser pueden ser pronto el componente principal). 

El disco de laser resuelve limpiamente uno de los actuales problemas y 
potenciales de las enormes cantidades de información que podemos almacenar 
ahora. En el momento actual, un disco laser puede dar cabida a 55.000 imáge- 
nes fijas; es decir, aproximadamente 700 megabytes de información. Cuestan 
menos de cinco dólares cada uno en producción masiva. Estas son cifras 
bastante asombrosas. Se están desarrollando los discos que pueden ser escritos 
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por el usuario, ya que hasta ahora sólo se pueden leer. Las estadísticas mues- 
tran su potencial. El problema radica en el gobierno de toda esta información. 
En contraste con la mayoría de la información textual, las imágenes visuales no 
son en general tan fácilmente clasificables. No obstante el vasto potencial de 
referenciación cruzada que posee el ordenador, unido a su capacidad única para 
manejar datos de la densidad soportada por un disco laser, nos demuestra que 
los discos video podrían sólo haber evolucionado y merecido la pena cuando se 
utilizan con un ordenador que controle y organice la información. 

La calidad de la información guardada en el interior de los bancos de datos 
de un ordenador hoy día debe ser también analizada. La mayor parte de la 
información es actualmente manipulada por la lógica matemática (utilizando 
operadores tales como +, —,x*, < y >). Las palabras se tratan como números. 
Esto significa que —para el ordenador— tienen un valor numérico, pero no 
significado. Es decir, aunque la información misma pueda manipularse como 
números, el sistema por sí mismo no puede tener ni la más vaga idea de con qué 
está trabajando. Si pudiéramos producir un sistema que utilizase las palabras 
como palabras, manipuladas lógicamente, estaríamos varios pasos más cerca de 
una máquina “consciente”. 

Hasta cierto punto, esto ya está ocurriendo. El mayor poder de procesa- 
miento y el inferior coste de almacenaje implican que ahora es posible desarro- 
llar sistemas basados en la lógica verbal (semántica). Estos sistemas reconocen 
relaciones no matemáticas, como, por ejemplo, pares padre/hijo, grande/extenso 
y Nueva York/ciudad, tal como ya hemos visto en este libro al comentar los 
lenguajes HASTE, EASLE, PROLOG-A y SSLISP. 
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Apéndice D 


Reglas de lógica 
probabilística 


La lógica probabilística utiliza los operadores AND, OR y NOT: 


NOT: Dadas dos condiciones opuestas, la probabilidad de un estado es 
(1 —probabilidad) del estado opuesto. 

AND: Toma el menor de dos (o más) balores, de modo que si uno es 
0.3 y el otro 0.5, al aplicarles el operador AND obtenemos 0.3. 

OR: Toma el mayor de dos (o más) valores, de modo que si uno es 


0.3 y el otro 0.5, al aplicarles el operador OR obtenemos 0.5. 


Observe cómo esta forma de determinar los valores en una situación AND 
u OR es en gran parte la tradicional. Algunos sostienen que un AND debiera ser 
el producto de la probabilidad-una y la probabilidad-dos. La utilización del 
método tradicional parece funcionar en la práctica, y dada la forma, en gran 
parte empírica, según la cual se deben valorar en muchos casos la calidad de las 
salidas de un sistema como éste, el hecho de que funcione en la práctica es en 
realidad lo único que importa. 


NOT pl ——= 1-pl 


pl AND p2 ———= MIN(p1,p2) 
pl OR p2 ———> MAX(p1,p2) 
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Apéndice E 
Datos climatológicos 


A continuación vienen los datos utilizados para la predicción del tiempo que 
efectuamos con FUZZY RITA. Como podrá ver, no todos los valores se 
utilizaron. Tal vez desee probar usted mismo el sistema, utilizando la informa- 
ción que ignoré en mi prueba. 


TEMPERATURA TOTAL 
ENT 
las des de FUERZA - | PRECIP. 
MIN | max 15 h. MAX. 
e) KM/H 


Dn — 


4 
5 


[o] 


Do 





TEMPERATURA 
VIENTO 


a las 
MIN MAX . 15 h. 
y KM/H 


FUERZA 
MAX. 





*  M.S.L. = Satélite meteorológico (Meteorological Satellite Laboratory). 
** H.R. = Humedad relativa. j 
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McCabe, J. G.; Clark, K. L., y Steel, B. D., Micro-PROLOG 3.1 Programmer's 
Reference Manual, Logic Programming Associates, Londres, 1984, 

Pountain, D., “Prolog on Microcomputers”, en Byte Magazine, McGraw-Hill, 
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Apéndice H 
Adaptaciones para 


Spectrum, Amstrad, 
Commodore 64 


y Apple ll 


Programas para Spectrum 


En la versión para Spectrum del programa SSLISP se han utilizado las 
siguientes órdenes: 


MSX 


CAR 

CDR 
CONS 
ATOM 
IGUAL 
NULO 
MIEMBRO 
MIGUAL 
JUNTA 
INVIERTE 
MISMO 


SPECTRUM 


PRIMERO 
SEGUNDO 
CONDENSA 
ELEMENTO 
IGUAL 
NULO 
MIEMBRO 
MIEMIGUAL 
JUNTA 
INVIERTE 
MISMO 











MSX SPECTRUM MSX 
LISTA LISTA MENOS 
INC1 INC1 RESTA 
DECI DEC1 EXP 
CERO? CERO? RECIP 
UNO? UNO? DIVIDE 
NUMERO? NUMERO? RESTO 
NEGATIVO? NEGATIVO? SUMA 
MAYOR MAYOR MULT 
MENOR MENOR DEFINE 
MAX MAX 

MIN MIN 


SPECTRUM 


MENOS 
DIFERENCIA 
EXPT 
INVERSO 
COCIENTE 
RESTO 
SUMA 
PRODUCTO 
DEFINE 
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SSLISP 


10 REM 33636363636 36-36-6-36-36-36-3-3-I6-III ICI 
20 REM + + 
30 REM + S.S.LISP $ 
40 REM +* * 
SO REM de 3636-1636 3-d6 d0-IE IE IE HH DE IE IE HE HE DE IE IE dE 
60 REM 


70 GO TO 3500: REM INICIO 


80 REM 636 36-46-16 36-36-26 36 36-36-3626 36-36 III IM MEE 

90 LET AS=A$(E TO LEN A$-1) 

10909 RETURN 

110 REM 23636 6 26 36 36-16 36 3636-36 3646 I0 HE II III IN 

1209 PRINT 

130 LET NN=0 

140 INPUT LINE A$: PRINT "> ": 
As 

150 IF A$="" THEN BEEP 1.-15: 
STOP : REM PARA FINALIZAR BASTA 
CON PULSAR <ENTER> 

160 REM 33646 33 de 16-36 16 HH IE AE IE IE ME DEI E IE IE E 

170 FOR J=1 TO 12 

180 LET X(J)=0: LET Y(J)=0: LET 

zZ(J)=0 

1909 NEXT J 

200 REM 4364616 36 16363636 MM DM IE IÓ MEME IE E 6 E 

210 LET R=0: LET S=0: LET T=0: 
LET CUNO=0: LET CDOS=0: LET ED=0 


220 FOR J=1 TO LEN A$ 

230 LET Bs$=A$ (J) 

240 IF B$="(" THEN LET S=S+1: 
LET Z(S)=J: IF T=0 THEN LET CUN 
D=J 

250 IF B$=")" THEN LET T=T+1: 
LET Y(T)=J: IF CDOS<>0 AND ED=0 
THEN LET ED=J-1 

260 IF T=1 AND B$=")" THEN LET 

CDOS=J 

270 IF B$=" 
LET X(R)=J 

280 NEXT J 

290 IF S=T THEN 

() EQUILIBRADOS 

300 IF S<T THEN 
SION DE (" 

310 IF S>T THEN 
SION DE )>” 

320 INPUT " + "sz 

330 LET A$=A$+BS$ 

340 GO TO 170 

350 IF NWDS=0 OR NN=1 THEN GO 
TO 450 

360 LET M$=A$( TO X(1)-1) 

370 LET FIN=10 

380 FOR J=1 TO NWDS 

390 LET H$=N$(J): GO SUB 3580: 


" THEN LET R=R+1: 


GO TO 350: REM 


PRINT " -—> OMI 
PRINT " -> OMI 


LINE Bs 
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LET W$=HS$ 
400 LET H$=0$(J):+* GO SUB 3580 
410 IF MS=WS THEN LET A$=H$+A6 
(LEN (W$)+1 TO > 
420 NEXT J 
430 LET NN=1 
4409 GO TO 170 
450 LET FLAG=0: LET B$="FALSO" 
455 IF LEN A$<5 THEN GO TO 129 
460 IF A$( TO 5S)="MAX (” THEN 
LET FLAG=19: GO SUB 2640: GO TO 
770 
470 IF A$( TO 5)="MIN (” THEN 
LET FLAG=20: GO SUB 2830: GO TO 
770 
475 IF LEN A$<6 THEN GO TO 120 
4809 IF A$( TO 6)="NULO ("” THEN 
LET FLAG=6: GO SUB 1340: GO TO 
770 
499 IF A$S( TO 6)="INC1 (” THEN 
LET FLAG=14: GO SUB 2220: GO TO 
770 
500 IF A$( TO 6)="DEC1 (" THEN 
LET FLAG=15: GO SUB 2270: GO TO 
770 
S10 IF A$( TO 6)="EXPT (" THEN 
LET FLAG=18: GO SUB 2400: GO TO 
770 
520 IF A$( TO 6)="SUMA (" THEN 
LET FLAG=21: GO SUB 2860: GO TO 
770 
530 IF AS( TO 6)="UNO? (" THEN 
LET FLAG=31: GO SUB 2320: GO TO 
770 
535 IF LEN A$<7 THEN GOD TO 120 
540 IF A$( TO 7)="IGUAL (” THEN 
LET FLAG=5: GO SUB 1210: GO TO 
770 
550 IF AS( TO 7)="LISTA (" THEN 
LET FLAG=12: GO SUB 2170: GO T 
O 770 
560 IF AS( TO 7)="CERO? (” THEN 
LET FLAG=146:z GO SUB 2320: GO T 
O 770 
570 IF AS( TO 7)="MISMO (" THEN 
LET FLAG=11: GO SUB 2040: GO T 
O 770 
580 IF AS( TO 7)="MENOS (" THEN 
LET FLAG=22: GO SUB 2910: GO T 
o 7709 
590 IF A$( TO 7)="MENOR ("” THEN 
LET FLAG=28: GO SUB 3200: GO T 
O 7709 
600 IF AS( TO 7)="JUNTA (" THEN 


LET FLAG=9: GO SUB 1710: GO TO 
770 

610 IF A$( TO 7)="MAYOR (” THEN 

LET FLAG=27: GO SUB 3160: GO T 
DO 770 

620 IF A$( TO 7)="RESTO (" THEN 

LET FLAG=25: GO SUB 3070: GO T 
O 770 

625 IF LEN A$<8 THEN GO TO 120 
630 IF A$( TO 8)="DEFINE (" THE 
N LET FLAG=13: GO SUB 3340: GO 
TO 770 

635 IF LEN A$<9 THEN GO TO 120 
640 IF A$( TO 9)="PRIMERO (" TH 
EN LET FLAG=1: GO SUB 850: GO T 
DO 770 

650 IF A$( TO 9)="SEGUNDO (” TH 
EN LET FLAG=2: GO SUB 900: GO T 
O 770 

660 IF A$(t TO 9)="INVERSO (” TH 
EN LET FLAG=24: GO SUB 3000: GO 
TO 770 

670 IF A$( TO 9)="MIEMBRO (" TH 
EN LET FLAG=7: GO SUB 1390: GO 
TO 770 

680 IF A$( TO 9)="NUMERO? (" TH 
EN LET FLAG=30: GO SUB 3290: GO 
TO 770 

685 IF LEN As$<10 THEN GO TO 12 
o 

690 IF A$( TO 10)="CONDENSA (" 
THEN LET FLAG=3: GO SUB 980: GO 
TO 770 

70€ IF A$( TO 10)="ELEMENTO (" 
THEN LET FLAG=4: GO SUB 1120: G 
O YO 770 

710 IF As$( TO 10)="PRODUCTO (” 
THEN LET FLAG=26: GO SUB 3110: 
GO TO 770 

720 IF A$( TO 10)="INVIERTE (" 
THEN LET FLAG=10:z GO SUB 1770: 
GO TO 770 

730 IF A$( TO 10)="COCIENTE (" 
THEN LET FLAG=23: GO SUB 2960: 
GO TO 770 

735 IF LEN A$<11 THEN GO TO 12 
0 

740 IF A$( TO 11)="MIEMIGUAL (" 
THEN LET FLAG=8:* GO SUB 1520: 
GO TO 770 

750 1F AS$( TO 11)="NEGATIVO? (” 
THEN LET FLAG=29: GO SUB 3240: 
GO TO 770 

755 IF LEN A$<12 THEN GO TO 12 
o 

760 IF A$( TO 12)="DIFERENCIA ( 
" THEN LET FLAG=17: GO SUB 23960 
770 IF FLAG<>0 THEN GO SUB 790 


789 GO TO 120 
790 REM +%* CONTESTACION +%+* 
8009 PRINT "” SU VALOR ES...” 
810 IF B$<>"()" THEN PRINT "” 
"3BS 
820 IF B$="()" THEN PRINT " 
NADA" 
830 RETURN 
840 REM 303026162 26-26 36-36 363630 EIA MM 
850 REM ** PRIMERO —+% 
860 IF S=2 THEN LET B$=4$ (Z (2) 
+1 TO X(2)) 
870 IF S>2 THEN LET B$=A$ (CUNO 
TO CDOS) 
880 RETURN 
890 REM 4634636226 36-26361636-6 DI III HA IMM 
900 REM ** SEGUNDO  x*x% 
910 GO SUB 850 
920 LET LB=LEN B$+11 
930 LET B$="("+A$(LB TO ED+1) 
940 IF BS(LEN B$-1 TO LEN B$)=" 
3)" THEN LET B$=B$( TO LEN Bs$-1 
) 
930 IF B$(2)=" " THEN LET B$=" 
("+B$(3 TO ) 
960 RETURN 
970 REM 43040303 3616 d 2 dE IE IE EII EI IEA AAA 
980 REM ** CONDENSA —x** 
990 LET B$=A$(11 TO LEN A$-1) 
1000 LET J=0 
1010 IF B$(1)="(" THEN LET J=1 
1020 LET J=J+1 
1030 IF B$(J)="(" THEN GO TO 10 
60 
1040 IF J<LEN B$ THEN GO TO 102 
o 
1050 LET B$="x%ws* ERROR EN PRIMERO 
+": RETURN 
1060 LET LB=LEN B$-1 
1070 LET B$="("+B$( TO J-1)+B$(J 
+1 TO )> 
1080 LET B$=B$( TO LB+1) 
1090 IF BS(LEN B$-1 TO )=" )" TH 
EN LET B$=B$( TO LEN B$-2)+")" 
1100 RETURN 
1110 REM 36363636 36 2616-16-26 16-26-2636 M2 36H IEIEIIE IEA 
1120 REM ** ELEMENTO —*x% 
1130 LET A$=A$(11 TO LEN A$-1) 
1140 LET J=09 
1150 LET J=J+1 
1160 IF A$(J)=" ”" OR A$S(J)="(" T 
HEN RETURN 
1170 IF J<LEN AS THEN GO TO 115 
o 
1180 LET B$="CIERTO" 
11909 RETURN 
1200 REM 46331636 26-16-26 26 36M MEE III IIA 
12109 REM *e* IGUAL  ** 
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1220 LET E=8: GO SUB 90 

1230 LET J=0 

1240 LET J=J+1 

1250 IF A$(J)=")" THEN RETURN 
1260 IF A$(J)=" " THEN GO TO 12 
909 

1270 IF J<LEN A$ THEN GO TO 124 
o) 

1280 RETURN 

1290 LET C$=A$( TO J-1) 

1300 LET A$=A$(J+1 TO ) 

1310 IF C$=A$ THEN LET Bs$="CIER 
TO " 

1320 RETURN 

1330 REM 33-333 16161636 I III III II 
1340 REM *e* NULO  *% 

1350 IF A$="NULO ()" THEN LET B 
$="x*x* UTILIZACION ILEGAL — *x 

NULO REQUIERE UN ARGUMENTO" 

1360 IF A$="NULO (())" THEN LET 
B$="CIERTO" 

1370 RETURN 

1390 REM 43612 16 4-36 36 336-1636 36 2-36 1 III IE RIA 
1390 REM ** MIEMBRO  *x% 
1400 LET C$=A$(10 TO > 

1410 LET J=1 

1420 LET J=J+1 

1430 IF C$(J)=")" OR C$(J)="(" T 

HEN LET D$=C$( TO J): GO TO 146 

o 

1440 IF J<LEN C$ THEN GO TO 142 


o 

1450 RETURN 

1460 LET J=LEN Ds$ 

1470 LET J=J+1 

1480 IF C$(J TO J+LEN D$-1)=DS$ T 
HEN LET C$=C$( TO LEN C$-1): GO 
TO 1640 

1490 IF J<LEN C$-LEN D$ THEN GO 
TO 1470 

1500 RETURN 

1510 REM 9646-36-36 46-46 16-16-16 46-36 36 26 36-26-26 3426262616 204 
1520 REM ** MIEMIGUAL —** 
1530 LET C$=A$(12 TO > 

1540 LET J=09 

1550 LET J=J+1 

1560 IF C$(J)=" " THEN GO TO 15 

909 

1570 IF J<LEN A$ THEN GO TO 155 

0 

1580 RETURN 

1590 LET D$=C$( TO J) 

1600 LET C$=C$(J+2 TO ) 

1610 LET C$=C$( TO LEN C$-2)+" " 
1520 LET J=0 

1630 LET J=J+1 

1540 IF C$(J TO J+LEN D$-1)=D$ T 

HEN LET B$="("+C$(J TO ): GO TO 
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1670 
1650 IF J<LEN C$-LEN D$ THEN GO 
TO 1630 
1560 RETURN 
1670 LET B$=B$( TO LEN B$-1)+")" 
1580 IF BS$(LEN B$-2 TO )=")))" T 
HEN  LET B$=B$( TO LEN B$-1): GO 
TO 1480 
16590 RETURN 
1700 REM 3046-3666 26 16-36-36-2616-16-26 3696 MAH 
1710 REM ** JUNTA —**e 
1720 LET B$=A$(8 TO > 
1730 LET B$=B$( TO Y(1)-8)+" "+B 
$(Z(3)-6 TO ) 
1740 LET B$=B$( TO LEN B$-1) 
1750 RETURN 
1760 REM 3646269636 26-26-9606 269646 2H IIA RIA A 
1770 REM *e* INVIERTE —*%* 
1780 LET Bs$="" 
1790 LET A$=A$(12 TO ): LET A$=A 
$( TO LEN A$-2) 
1800 LET CT=0 
1810 LET J=0 
1820 LET J=J+1t 1F J>LEN A$ THEN 


GO TO 1930 
1830 IF A$(J)=" " THEN GO TO 18 


1840 IF A$(J)="(" THEN GO TO 18 


1850 GO TO 1820 

1860 LET CT=CT+18+ LET G$(CT)=A$ ( 
TO J-1): LET A$=A$ (J+1 TO ):2 GO 
TO 1810 

1870 LET J=J+1t 1F A$(J TO J+1)= 
"))" THEN GO TO 20209 

1880 IF A$(J)=")" THEN GO TO 19 
20 

1890 IF J=LEN A$ THEN GO TO 191 
o 

1900 GO TO 1870 

1910 LET CT=CT+1: LET G$(CT)=A$+ 
")"s GO TO 1940 

1920 LET CT=CT+12 LET G$(CT)=A$( 
TO J)»: LET A$=A$ (J+1 TO >: GO T 

o 1810 

1930 LET CT=CT+12 LET G$(CT)>=A$ 
1940 FOR M=CT TO 1 STEP -1 

1950 LET H$=G$(M)3 LET FIN=30 
1960 GO SUB 3580 

1970 IF H$(1)=" " THEN LET H$=" 


1980 LET B$=B$+H$: IF M>1 THEN 
LET B$=B$+" " 

1990 NEXT M 

2000 LET B$="("+B$+")" 

2010 RETURN 

2020 LET CT=CT+18* LET G$(CT)=A$ € 
TO J+1)3 LET A$=A5$ (J+2 TO )3 GO 


TO 1810 

2030 REM 3446-16-26 46 36-06-26 36 1-16 26 36-36-26 36 -3-36-6M AE 
2040 REM +. MISMO + 
2050 LET E=8: GO SUB 90 

2060 LET M=CODE A$:2 IF M>47 AND 
M<58 THEN GO TO 2410 

2070 LET J=0 

2080 LET J=J+1 

2090 IF AS(J TO J+1)=") " THEN 
LET J=J+1: GO TO 1290 

2100 IF A$(J TO J+2)=")))" THEN 

GO TO 2140 

2110 IF AS(J TO J+1)="))" THEN 
GO TO 2150 

2120 IF J<LEN A$ THEN GO TO 208 
o 

2130 RETURN 

2140 LET C$=AS( TO J+2): LET A$= 
AsS(J+4 TO ):z GO TO 1310 
2150 LET C$=A$5( TO J+1): LET A$= 
A$S(J+3 TO )3 GO TO 1310 
2160 REM 46362616 36 46-26 36 36 36 dE M6 AE M6 36 10d dE IE 
2170 REM ** LISTA ** 

2180 LET E=8: GO SUB 90 
2190 LET BS$="("+A$+")" 
2200 RETURN 

2210 REM 2436 06 36-16 36 16 36-36-36 31426 1616162016 600 1 
2220 REM *1. —INC1  * 

2230 LET E=71 GO SUB 90 
2240 LET B$=STR$ (VAL A$+1) 
2250 RETURN 
2260 REM 3364 1626 16 26 36-26 36-16-46 26 36 10 36d dE 06 ME 
2270 REM ** DEC1  ** 

2280 LET E=7: GO SUB 90 
2290 LET BS$=STR$ (VAL A$-1) 

2300 RETURN 

2310 REM 4326163 161626 36 362616 36-246 dE MI IIA 
2320 REM *. CERO?  ** 

2330 IF FLAG=16 THEN LET E=8 
2340 IF FLAG=31 THEN LET E=7 
2350 GO SUB 90 
2360 IF A$="0" AND FLAG=16 OR A$ 
="i" AND FLAG=31 THEN LET Bs$="C 
ORRECTO" 
2370 RETURN 
2380 REM 4143636 16 36 36-36 36 36-16 36 3 D6-3E-IE ME 4-6 4661 
2390 REM ** DOS ARGUMENTOS — +,%* 
2400 LET E=13: GO SUB 90 
2410 LET J=0 
2420 LET J=J+1 
2430 IF AS(J)=" " THEN GO TO 24 
60 
2440 IF J<LEN A$ THEN GO TO 242 
(9) 
2450 LET Bs$=" ** ERROR 
e% SE NECESITAN DOS AR 
GUMENTOS":3 RETURN 
2460 LET P=VAL AS( TO J-1) 


2470 LET Q=VAL A$(J+1 TO > 
2480 IF FLAG=17 THEN LET B$=STR 
$ (P-Q): RETURN 
2490 IF FLAG=23 OR FLAG=25 THEN 
LET B=P/Q 
2500 IF FLAG=25S THEN LET B=(INT 
(.5+0x* (B-INT B)*1000))/1000 
2510 IF FLAG=18 THEN LET B=P"Q 
2520 IF FLAG=11 AND P=Q THEN LE 
T B$="CORRECTO" 
2530 IF FLAG=27 AND P>Q THEN LE 
T B$="CORRECTO” 
2540 IF FLAG=28 AND P<Q THEN LE 
T B$="CORRECTO" 
2550 IF FLAG=32 THEN LET B=P-Q 
2560 IF FLAG=11 OR FLAG>246 THEN 
RETURN 
2570 LET B$=STRS$ (B) 
2580 RETURN 
2590 REM 343636 0% 26 dl 36 dd dd DE 6 96 M6 HE A MA A dd 
2600 REM *. EXPT «+. 
2610 LET E=71 GO SUB 90 
2620 GO TO 2410 
2630 REM 31643624 36 36 6 30 626-1626 2616 2636 6 26 616 16d 
2640 REM +. MAX  *» 
+%* (MIN SUMA PRODUCTO) +, 
2650 LET FS$=A$( TO 3): LET A$=AS$ 
(6 TO ) 
2660 LET CT=0: LET FLAG=0 
2670 IF F$="PRODUCTO" THEN LET 
CT=1 
2680 LET J=0 
2690 LET J=J+1 
2700 IF A$(J)=" " THEN GOD TO 27 
30 
2710 IF'J<LEN A$ THEN GO TO 2649 
0 
2720 IF J=LEN A$ THEN LET FLAG= 
1 
2730 LET P=VAL A$( TO J-1): IF F 
LAG=0 THEN LET A$=A$(J+1 TO > 
2740 IF Fs$<>"SUMA" AND CT=0 THEN 


LET CT=P 
2750 IF F$="MAX" AND P>CT THEN 
LET CT=P 
2760 IF F$="MIN" AND P<CT THEN 
LET CT=P 


2770 1F F$="SUMA" THEN LET CT=C 
T+P 

2780 IF F$="PRODUCTO" THEN LET 

CT=CT+P 

2790 IF FLAG=0 THEN GO TO 2680 

2800 LET B$=STR$ (CT) 

2810 RETURN 

2820 REM 36363636 3-36 36 d-36 DE-3E JET IIED IES 6H HE 
2830 REM *. MIN e 


2840 GO TO 2650 
2850 REM 36-36-3636 -16-26 26 36-26 36 36 36-26-36 16 36-16 36-36-36 3016 M6 
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2850 REM e SUMA — +% 

2870 LET F$="SUMA"” 

2880 LET A$=A$(7 TO ) 

28909 GO TO 2660 

2900 REM 3636363636 36 36 36-36-26 26 16-3-30-IE IET AIR IEEE 
2910 REM e MENOS  *% 
2920 LET E=8: GO SUB 90 

2930 LET B$=STR$ (-—VAL A$) 

2940 RETURN 

2950 REM 446 4636-46 16-16 36-46 36-16 3616 3-36 1-36 I6 IE HAM dE 
2960 REM ** COCIENTE +%x%w 

2970 LET E=11: GO SUB 90 

2980 GOD TO 2410 

2990 REM 3616363636263 36-46-36 36-16 3636 II M IE HH 6d 
3000 REM ** INVERSO %%e 

3010 LET E=10: GO SUB 90 

3020 IF A$="0" THEN LET B$="x* E 
RROR: DIVISION POR CERO* ": RETURN 
3030 LET B=1/(VAL A$) 

3040 LET B$=STRS$ B 

3050 RETURN 

3060 REM 3616-36-46 1636-16-16 36 36-16 36-316 361636 dE IE HIM 
3070 REM ** RESTO *+*e 

3080 LET E=8: GO SUB 90 

3090 GO TO 2410 

3100 REM 36463616 36 16-16 36-36-3626 36-16 36-16 36 36 3636-4616 266 
3110 REM ** PRODUCTO ++ 

3120 LET F$="PRODUCTO" 

3130 LET A$=A$6(11 TO ) 

3140 GO TO 2660 

3150 REM 363646363646 16 36-36-46 36 3-36 36-36-1164 IEIE REM 
3160 REM *. MAYOR —*x%* 

3170 LET E=8: GO SUB 90 

3180 GO TO 2410 

3190 REM 14636363636 36 16-16 36 36-16 -1 36-36-36 16 36-362 36462 
3200 REM ** MENOR —*% 

3210 LET E=8: GO SUB 90 

3220 GO TO 2410 

3230 REM 13-26-46 3636 36 36 46-36-36 36 36 36-36 36-36 36-16-36 1626 M 
3240 REM ** NEGATIVO?  ++%* 
3250 LET E=121 GO SUB 90 

3260 IF VAL A$<0 THEN LET B$="C 
IERTO" 

3270 RETURN 

3280 REM 463636 36-26 36 36-36-06 36 26 26 46 36-36-26 36-36-26 26 44-362 


3290 REM ** NUMERO? xx 
3300 LET A$=A$ (10 TO ) 

3310 IF CODE A$>44 AND CODE A$<5 
8 THEN LET B$="CIERTO"” 

3320 RETURN 

3330 REM 33163636 96-16 36-436 16 26-126 26-263 0I III 
3340 REM *e* DEFINE —+% 


3350 LET A$=A$(9 TO ) 
3360 LET F$=A$( TO X(2)-9) 


3370 LET L$=A$ (X(4)-6 TO ) 

3380 LET J=0 

3390 LET J=J+1 

3400 IF L$(J)=" " THEN GO TO 34 

30 

3410 IF J<LEN L$ THEN GO TO 339 
o 

3420 LET B$="%* ERROR: DEFINE INCO 

RRECTO *"z RETURN 

3430 LET L$=L$( TO J-1) 

3440 LET NWDS=NWDS+1 

3450 LET OS (NWDS)=L$: LET N$(NWD 

S)=F$ 

3460 LET Bs$=F$ 

3470 RETURN 

3480 REM 3616 16 16 36 36 36 36 3636 4601016 H MI HEM 
3490 REM %%% INICIALIZACION ss 
3500 REM 36161636 16 26 36 36-36 36-16-16 161-061 MIE IDE MEM 
3510 POKE 23658,8 

3520 POKE 23609, 40 

3530 POKE 23692, 255 

3540 BORDER 1: PAPER 1: INK 7: C 

Ls 

3550 DIM G$(20,30): DIM 0$(20,10 
): DIM N$(20,10)3 DIM X(12): DIM 
Y(12): DIM Z(12) 

3560 LET NWDS=0: REM CONTADOR DE 
FUNCIONES DEFINIDAS POR EL USUA 
RIO 

3570 GD TO 1209 

3580 REM ELIMINACION BLANCOS 
3590 FOR W=FIN TO 1 STEP -1 

3600 IF H$(W)<>" " THEN LET H$= 
H$( TO W): GO TO 3620 

3610 NEXT W 

3620 RETURN 


PROLOG-A 


1 REM 36362632636 3636-36 16-I6-I6IE III III 


2 REM * + 
3 REM + PROLOG-A A 
4 REM + - 
S REM 36464636316 36-06 16-36-36 26 16 2636 36-26 33H IE 
6 REM 
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10 PAPER 1: BORDER 1: INK 7 
15 POKE 23609,40: POKE 23658. 8 
: POKE 23492, 255 
20 REM * TODAS LAS ENTRADAS 
EN MAYUSCULAS «+ 
30 GO TO 509 


40 PRINT "NO HAY (MAS) RESPUES 
TAS": RETURN 

50 GO SUB 3270: REM INICIO 

60 REM 361636463626 16 36-26-3633 IE NEIRA 

70 PRINT 

75 PRINT AT 0,0:" 

80 INPUT "£."3 LINE J$ 

90 IF J$="" THEN STOP 

92 CLS 

95 PRINT  INK 73 PAPER 0: FLAS 
H 1:3AT 0,8: "ESPERE.POR FAVOR” 
100 IF J$="LISTA TODO” THEN GO 
SUB 1860: GOD TO 70 

1109 IF J$( TO 6)="LISTA " THEN 
LET J$=3$(6 TO )+" ":z GO SUB 99 
0: GOD TO 70 

120 IF J$(LEN J$ TO )<>")" THEN 

PRINT "1.": INPUT L$: LET J$=J 
$+L$: GO TO 120 

130 LET LJ=LEN J$ 

140 LET J$=J$( TO LJ-1)+" "sz 
REM SUSTITUCION DEL ULTIMO >) PO 
RUN ESPACIO 

150 LET LJ=LEN J$ 

150 LET FL=0 

170 IF J$( TO 5)="METE(” THEN 
LET J$=3$(6 TO ): LET FL=1 

180 LET RU=0: LET MA=06: LET AR= 
(o) 

190 FOR R=1 TO LEN J$ 

195 IF (R+3)>LEN J$ THEN GO TO 
205 

200 IF J$(R TO R+3)=" SI " THEN 

LET RU=R: LET FL=6 

205 IF (R+2)>LEN J$ THEN GO TO 
215 

210 IF JS$(R TO R+2)=" Y " THEN 
LET MA=R 

215 IF (R+4)>LEN J$ THEN GO TO 
225 

220 IF J$(R TO R+4)="SUMA(” THE 
N LET AR=1 

225 IF (R+S)>LEN J$ THEN GOD TO 
235 

230 IF J$(R TO R+S)="VECES(” TH 
EN LET AR=2 

235 IF (R+6)>LEN J$ THEN GO TO 
245 

240 IF J$(R TO R+6)=" MENOR " T 
HEN  LET AR=3 

245 IF (R+2)>LEN J$ THEN GO TO 
260 

250 IF J$(R TO R+2)="ENT" THEN 
LET AR=4 

260 NEXT R 

265 IF LEN J$<3 THEN GO TO 275 
270 IF J$( TO 3)="ES(” THEN LE 


T J$=3$(4 TO >): LET FL=2 
275 IF LEN J$<9 THEN GO TO 285 
280 IF J$( TO 9)="CUAL(X 2 " TH 
EN LET J$=J$(10 TO ): LET FL=3 
285 IF LEN J$<15 THEN GO TO 30 
o 
290 IF J$( TO 15)="CUAL((X Z) : 
X " THEN LET J$=J$(16 TO ):z LE 
T FL=4 
300 IF FL=0 THEN PRINT "ERROR 
DE SINTAXIS": GO TO 70 
310 LET LJ=LEN J$ 
320 REM AHORA BUSCA LAS 
SUBRUTINAS PERTINENTES 
330 IF MA<>0 THEN GO SUB 1950: 
GO TO 70: REM 
CODIFICA LA REGLA "Y" 
340 IF RU<>0 AND FL<>5 THEN GO 
SUB 1110: REM 
CODIFICACION DE LA REGLA 
350 IF AR<>0 THEN GO SUB 2430: 
GO TO 70: REM ARITMETICA 
360 IF J$(LEN J$-2 TO )=" X " O 
R J$(LEN J$-2 TO )=" Z " THEN L 
ET J$=3$( TO LJ-2)+" " 
370 LET LJ=LEN J$ 
380 IF FL=1 THEN GO SUB 440: 
REM METE 
390 IF FL=2 THEN GO SUB 520: 
REM ES 
400 IF FL=3 THEN GO SUB 610: 
REM CUAL 


410 IF FL=4 THEN (GO SUB 830: 
REM CUAL2 

420 GO TO 70 

430 REM 606266 66 26266 266 
440 REM METE 

(ADQUIERE INFORMACIONES) 

450 LET k=0 

460 LET K=kK+1 

470 IF CODE Z$(K)=32 THEN LET 
2$(K)=J$+"": BEEP .1,10: BEEP . 
3.15: RETURN 

480 IF K<500 THEN GO TO 4460 
490 PRINT  INK 53 FLASH 1; "MEMO 
RIA LLENA": BEEP .5.15 

500 RETURN 

510 REM e s626-2 06 2626-26 M IE III MMM E 
520 REM ES 

530 LET K=0 

540 LET K=k+1 

550 IF CODE Z$(K)=32 THEN GO T 
o 580 

560 LET A$=Z$(K): GO SUB 8500: 
IF A$=3$ THEN PRINT  INK 6:"SI" 
: GO TO 590 

570 IF K<500 THEN GO TO 540 
580 PRINT  INK 6: "NO" 
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590 BEEP .1,10: BEEP .3,15: RET 
URN 
600 REM 36363 46 1636 36-36-16 3 36-36-3366 4EI IE IE 
610 REM cual 
(BUSCA LAS CORRESPONDENCIAS) 

620 IF J$(1)="X" THEN GO TO 71 
o 

630 LET J$=J$( TO LJ-1) 

640 LET K=0 

650 LET K=k+1 

660 IF CODE Z$(K)=32 THEN GO T 
D 490 

670 LET A$=Z$(K): GO SUB 8500: 
IF J$=A$( TO LEN J$) THEN PRINT 
INK 6: A$(LEN J$ TO ) 

680 IF kK<500 THEN GO TO 650 
6790 GO SUB 40 

695 BEEP .1,10: BEEP .3,15 

700 RETURN 

710 REM PREGUNTA INICIADA CON X 
720 LET J$=J$(3 TO LEN J$) 

730 LET LJ=LEN J$ 

740 LET K=0 

750 LET K=K+1 

760 IF CODE Z$(K)=32 THEN GO T 
o 800 

770 LET A$=Z$(K): GO SUB 8500: 
LET Q$=A$S(LEN A$-LJ+1 TO ) 
780 IF Q$=J$ THEN PRINT 
¡A$( TO LEN A$-LJ-1) 

790 IF K<500 THEN GO TO 750 
800 GO SUB 40 

805 BEEP .1,10: BEEP .3.15 


INK 6 


ei0 RETURN 
820 REM 3636363636 16 3d 1616-26 36 26d dE IEA IAE 
830 REM CUAL2 


840 LET J$=J$( TO LJ-2) 

850 LET LJ=LEN J$ 

860 LET K=0 

870 LET K=k+1 

880 IF CODE Z$(K)=32 THEN GO T 
O 960 

890 LET LF=0 

895 LET A$=Z$(K) 

900 FOR L=1 TO 30-LJ 

919 IF A$(L TO L+LJ-1)=J$ THEN 
LET LF=L 

920 NEXT L 

Q30 IF LF=0 THEN GO TO 950 

935 GO SUB 8500 

940 PRINT A$( TO LF-2)3A$(LF+LJ 
TO ) 

945 BEEP .05.0 

950 IF K<500 THEN GO TO 870 
960 GO SUB 40 

965 BEEP .1.10: BEEP .3,15 

970 RETURN 

980 REM 43163616316 1636-3636 10I6IEIE M6 MIRE III IE 
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999 REM LISTA 
1000 LET Kk=0 
1010 LET K=kK+1 
1020 IF CODE Z$(K)=32 THEN RETU 
RN 
1030 LET LF=0 
1040 FOR L=1 TO LEN Z$(K)-LEN J$ 
1050 LET A$=Z$(K)3 IF AS(L TO L+ 
LEN J$-1)=J$ THEN LET LF=1 
1060 NEXT L 
1070 IF LF=i THEN LET A$=Z$(K): 
GO SUB 8500: PRINT  INK 63A$ 
1075 BEEP .05,0 
1089 IF k<500 THEN GOD TO 1010 
1090 RETURN 
1100 REM 33616 d6 36 36 26 36-36-13 93 IE DELE IE IE IE MIE 
1110 REM CONFORMA LAS REGLAS 
1120 LET R=RU 
1130 LET Es$=J$( TO R): LET F$=J3$ 
(R+4 TO >) 
1140 IF ES(1)<>"X" THEN PRINT 
INK 53 FLASH 1: "ERROR EN LA REGL 
A": GO TO 70 
1150 REM LA SIGUIENTE LINEA 
DETECTA ENTRADAS COMO 2 
X RELACION Z SI X ES Z 
1160 IF FS$(LEN F$-1 TO )="Z " TH 
EN GO TO 1390 
1170 PRINT — INK 73TAB 4; "COMPILA 
CION DE LA REGLA" 
1180 FOR T=1 TO 100 
1190 LET R$(T)="" 
1200 NEXT T 
1210 LET E$=E$(3 TO )3 LET F$=F5 
(3 TO LEN F$) 
1220 LET K=0: LET RR=0 
1230 LET K=kK+1 
1240 IF CODE Z$(K)=32 THEN GO “T 
O 1300 
1245 LET A$=Z$(K): GO SUB 8500 
1250 IF AS(LEN A$-LEN F$+1 TO )< 
>F$ THEN GO TO 1370 
1260 LET RR=RR+1 
1270 LET R$(RR)=A$( TO LEN A$-LE 
N F$)+E$+"Q" 
1280 PRINT "> "32 LET A$=R$(RR): 
GO SUB 85003 PRINT INK 634$ 
1285 BEEP .1,10: BEEP .3,15 
1290 GO TO 1230 
1300 IF RR=0 THEN RETURN 
1310 LET RC=0 
1320 LET RC=RC+1 
1330 LET Z$(K)=R$(RC) 
1340 IF K<500 THEN LET K=k+1 
1350 IF RC<RR THEN GO TO 1320 
1360 RETURN 
1370 IF K<500 THEN GO TO 1230 
1380 RETURN 


1390 REM REGLA CON 2 VARIABLES 

1400 FOR T=1 TO 100 

1410 LET R$(T)="" 

1420 NEXT T 

1430 LET K=0: LET RR=0 

1440 IF K=500 THEN RETURN 

1450 LET K=kK+1 

1460 IF CODE Z$(K)=32 THEN GD T 

O 1770 

1470 REM DESCOMPOSICION EN TRES 
PALABRAS 

1480 LET Q6=Z$(K) 

1490 LET J=0 

1500 LET J=J+1 

1510 IF 0$(J TO J)=" " THEN GO 

TO 1540 

1520 IF J<LEN Q6 THEN GOD TO 150 

o 

1530 PRINT  INK 5: "ERROR EN COMP 

ILACION DE REGLA": GO TO 70 

1540 LET A$=0$( TO J) 

1550 LET Q$=06(J+1 TO > 

1560 LET J=0 

1570 LET J=J+1 

1580 IF Q$(J)=" " THEN GO TO 16 

10 

1590 IF J<LEN Q$ THEN GO TO 157 

o 

1500 PRINT  INK 53 "ERROR EN COMP 

ILACION DE REGLA" GO TO 70 

1510 LET B$=0$( TO J) 

16520 LET Q$=0$(J+1 TO ) 

1630 LET J=0 

1640 LET J=J3+1 

1650 IF Q6(J)=" " THEN GO TO 16 

80 

1660 IF J<LEN Q$ THEN GO TO 164 

o 


1670 PRINT  INK 5: "ERROR EN COMP 
ILACION DE REGLA"a GO TO 70 

16480 PRINT  INK 73TAB 4: "COMPILA 

CION DE LA REGLA" 

1690 LET C$=0$( TO J) 

1700 LET M$=F$(3 TO 3+LEN B$-1) 
1710 IF Bs$<>M$ THEN GO TO 1440 
1720 LET RR=RR+1 

1730 LET N$=E$(3 TO LEN E$-2) 
1740 LET R$(RR)=A$+N$+C0$+"Q" 
1750 PRINT "> "33 LET A$=R$(RR) : 
GO SUB 8500: PRINT  INK 6:4$ 
1755 BEEP .1,10: BEEP .3,15 

1760 GO TO 1440 

1770 IF RR=0 THEN RETURN 

1780 LET M=0 

1790 LET M=M+1 

1800 IF M>RR THEN RETURN 

1810 LET Z$(K)=R$ (M) 

1820 IF K=500 THEN PRINT  INK 5 


3 FLASH 13 "MEMORIA LLENA”: BEEP 

«3.15: GO TO 70 

1830 LET K=k+1 

1840 GO TO 1790 

1850 REM 33636 36-26 363-3626 26 263636363030 HH EE 

1860 REM LISTA TODO 

1870 PRINT 

1880 LET K=0 

1890 LET K=kK+1 

1900 IF CODE Z$(K)=32 THEN  RETU 

RN 

1910 LET A$=Z$(K): GO SUB 8500: 

PRINT — INK 634$ 

1915 BEEP .05,0 

1920 IF K<500 THEN GO TO 1890 

1930 RETURN 

1940 REM 363163636 M6 36 36-36-36 36-36-36 36-36 IE IEA IE IE EE 

1950 REM CONFORMA LAS REGLAS CON 
"Y" DEL SIGUIENTE TIPO: 

1960 REM (X ENGLOBA Z SI X ES 
UNA COSA Y Z ES OTRA) 

1970 REM EL CONCEPTO X DEBE 
ESTAR EN LISTA. PRECEDIENDO 
A Z PARA TODOS LOS EJEMPLOS 
QUE SE CODIFIQUEN 

1980 REM DIVIDIR EN SECCIONES 

1990 LET J$=J$(2 TO ): 

REM ELIMINA "X" 

2000 PRINT  INK 73 TAB 4: "COMPILA 

CION DE LA REGLA" 

2010 LET J=1 

2020 LET J=J+1 

2030 IF J$(J)=" " THEN GO TO 20 

60 

2040 IF J<LEN J$ THEN GO TO 202 

o 


2050 PRINT INK 5:¡"ERROR EN COMP 
ILACION DE REGLA": RETURN 

2060 LET I$=J$( TO J)?: 

REM RELACION 1 
2070 LET J$=3$(J+7 TO ): 

REM CENTRADO EN EL COMIENZO DE 
LA SEGUNDA RELACION 

2080 LET J=1: LET CONT=0 
2090 LET J=J+1 
2100 IF J$(J)=" " THEN LET CONT 
=CONT+1 

2110 IF CONT=2 THEN GO TO 2140 
2120 IF J<LEN J$ THEN GO TO 209 
o 

2130 PRINT  INK 5: "ERROR EN COMF: 
ILACION DE REGLA": RETURN 

2140 LET B$=J3$( TO J): 

REM ENUNCIADO 1 

2150 LET C$=J$(J3+4 TO )>: 

REM ENUNCIADO 2 

2160 IF C$=" " THEN PRINT "ERRO 
R EN COMPILACION DE REGLA": RETU 
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RN 
2170 REM AHORA EL PROGRAMA SE 
DIRIGE A LA BASE DE DATOS 

2180 FOR T=1 TO 200 

2190 LET R$(T)="" 

2200 NEXT T 

2210 LET Ri=0: LET R2=99 

2220 LET K=0 

2230 LET K=k+1 

2240 IF CODE Z$(K)=32 THEN GO T 

O 2310 

2250 IF R1=99 OR R2=200 THEN PR 
INT "INSUFICIENCIA DE MEMORIA": 
GO TO 2310 

2260 LET LB=LEN B$ 

2270 LET A$=Z$(K): GO SUB 8500: 
IF AS(LEN A$-LB+1 TO )=B$ THEN 
LET Ri=R1+1: LET R$(R1)=A$( TO L 
EN A$-LB)+"e" 

2280 LET LC=LEN C$ 

2290 LET A$=Z$(K): GO SUB 8500: 
IF AS(LEN A$-LC+1 TO )=C$ THEN 
LET R2=R2+1: LET R$(R2)=A$( TO L 
EN AS-LC)+"8" 

2300 IF K<500 THEN GO TO 2230 

2310 IF CODE R$(100)=32 THEN PR 
INT — INK 5:"EL ENUNCIADO 2 INTRO 
DUCIDO NO CONSTA EN LA BASE DE 
DATOS": BEEP .1,10: BEEP .1,15: 
RETURN 

2320 REM CODIFICACION DE REGLAS 
2330 LET Ri=0: LET R2=99 

2340 LET R2=R2+1 

2350 LET Ri=Ri+1 

2360 IF R$(R1)=" ” OR R$(R2)=" " 
THEN GO TO 2370 

2352 GO SUB 8600: GO SUB 8700 
2365 LET Z$(K)=W$+1$+V$+" "+"A" 

2370 PRINT "> "32 LET A$=Z$(K): 

GO SUB 8500: PRINT INK 6;A$ 
2375 BEEP .1,10: BEEP .3,15 

2380 LET K=K+1 

2390 IF CODE R$(R2+1)<>32 THEN 
GO TO 2340 

2400 IF CODE R$(R1+1)<>32 THEN 
GO TO 2350 

2410 RETURN 

2420 REM 3636363636 36-33 MH II IE III IDEM IE 
2430 REM ARITMETICA 

2440 LET LJ=LEN J$ 

2450 IF AR<3 THEN GO SUB 2490 
2460 IF AR=3 THEN (GO SUB 2890 

2470 IF AR=4 THEN (GO SUB 3080 

2480 RETURN 

2490 REM ****SUMA —- VECES 44% 02% 

2500 LET J$=J$(6 TO LJ) 

2510 IF J$(1)="(" THEN LET J$=3 

$(2 TO ) 
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2520 LET UJ=LEN J$ 
2530 LET K=0 
2540 LET K=K+1 


2550 IF J$(K)=" " THEN LET A$=3 
$( TO K-1): LET J$=J$(K+1 TO ): 
GO TO 2580 


2560 IF K<LJ THEN GO TO 2540 
2570 PRINT — INK SiTAB 73 "ERROR A 
RITMETICO": RETURN 

2580 LET LJ=LEN J$ 

2590 LET K=09 

2600 LET K=K+1 

2610 IF J$(K)=" " THEN LET B$=J 
$( TO K-1): LET J$=J$(K+1 TO ): 
GO TO 2440 

2620 IF K<LJ THEN GO TO 2400 
2630 PRINT INK 5:¡TAB 73 "ERROR A 
RITMETICO":* RETURN 

2640 LET LJ=LEN J$ 

2650 LET K=0 

2660 LET K=K+1 

2670 IF J$(K)=")" THEN LET Cs$=J 
$( TO K-1): GO TO 2700 

2680 IF K<LJ THEN GO TO 2660 
2690 PRINT — INK Si¡TAB 2: "ERROR ( 
DEMASIADAS VARIABLES)": RETURN 
2700 LET AN=0: LET BN=0: LET CN: 
o 


2710 IF CODE A$>57 THEN  LET AN= 
1 

2720 IF CODE B$>57 THEN LET BN== 
2 

2730 IF CODE C$>57 THEN LET CN-- 
4 

2740 LET GU=AN+BN+CN: IF GU=3 OR 
GU=5 OR GU=6 THEN GO TO 2690 
2750 IF AR=2 THEN GO TO 2820: 
REM VECES 

2760 IF GU>0 THEN GOD TO 2790 
2770 1F VAL A$+VAL B$=VAL C$ THE 
N PRINT— INK 6:3"SI": BEEP .1,10 
: BEEP .3.15: RETURN 

2780 PRINT  INK 6; "NO": BEEP .1., 
10: BEEP .3,15:2 RETURN 

2790 IF GU=1 THEN PRINT VAL C$-- 

VAL B$:z GO SUB 40: RETURN 

2800 IF GU=2 THEN PRINT VAL C$-- 

VAL A$: GO SUB 40: RETURN 

2810 PRINT INK 6: VAL AS+VAL B$: 
GO SUB 40: RETURN 

2820 REM VECES 106 466 dE 

2830 IF GU>0 THEN GO TO 28460 

2840 IF VAL AS*VAL B$=VAL C$ THE 
N PRINT— INK 6:3"SI": BEEP .1,10 
3 BEEP .3,15: RETURN 

2850 PRINT  INK 6:3"NO": BEEP .1, 
10: BEEP .3.15: RETURN 

2860 IF GU=1 THEN PRINT VAL C0$/ 


VAL B$: GO SUB 40: RETURN 

2870 IF GU=2 THEN PRINT VAL C$/ 
VAL A$: GO SUB 40: RETURN 

2880 PRINT INK 6: VAL AS$S*VAL B$: 
GO SUB 40: RETURN 

2890 REM 6361616162262 MENOR 3 46 46 36-46-2362 163 
2900 LET NF=0 

2910 IF CODE J$<58 THEN LET NF= 
1: REM NUMEROS 

2920 LET CONT=0 

2930 LET K=0 

2940 LET K=kK+1 

2950 IF J$(K)=" " THEN LET CONT 
=CONT+1 

2960 IF CONT=2 THEN GO TO 30060 
2970 IF K<LEN J$ THEN GO TO 294 
(o) 

2980 PRINT  INK S5Si¡TAB 4: "ERROR E 
N LA COMPARACION" 

2990 RETURN 

3000 LET B$=J$(K+1 TO ) 

3010 LET A$=J$( TO K-6) 

3020 IF NF=1 THEN GO TO 3050 

3030 IF A$<B$ THEN PRINT  INK 6 
3"SI": RETURN 

3040 PRINT  INK 6:"NO": BEEP .1. 
10: BEEP .3,15: RETURN 

3050 REM +%* NUMEROS ++ 

3060 IF VAL A$<VAL B$ THEN PRIN 
T INK 63"SI": BEEP .1,10: BEEP 
.3,15: RETURN 

3070 PRINT  INK 63"NO": BEEP .1, 
10: BEEP .3,15: RETURN 

23080 REM 4406462642616 ENT 46 36-36 263626166 1H 
3099 IF J$(LEN J$-1 TO )="X " TH 
EN GO TO 31909 

3100 LET K=0 

3110 LET K=k+1 

3120 IF J$(K)=" " THEN GO TO 31 
60 

3130 IF K<LEN J$ THEN GO TO 311 
o 


3140 PRINT  INK S5S¡TAB 7: "ERROR A 
1 REM 46361361616 363616 H HE 
2 REM +* * 
3 REM +* FUZZY RITA * 
4 REM + * 
5 REM 4364236161636 364636 IM 
10 REM 


20 GO SUB 1380: REM INICIO 
30 GO SUB 11460: REM OPCIONES 


RITMETICO"” 

3150 RETURN 

3150 LET A=VAL (J$( TO K-1)) 
3170 IF INT A=A THEN PRINT — INK 
6:3"SI": BEEP .1,10: BEEP .3,15: 
RETURN 

3180 PRINT — INK 6:"NO": BEEP .1+ 
10: BEEP .3,15: RETURN 

3190 LET K=0 

3200 LET K=K+1 

3210 IF J$(K)=" " THEN GO TO 32 

40 

3220 IF K<LEN J$ THEN GO TO 320 

U) 

3230 PRINT INK SiTAB 7: "ERROR A 

RITMETICO": RETURN 

3240 PRINT  INK 6; INT (VAL (J$( 
TO K-1))) 

3250 RETURN 

3260 REM 433616036 366126 6d IIA 

3270 REM INICIALIZACION 

3280 CLS 

3290 DIM Z$(500,40): DIM R$(200, 

40) 

3300 RETURN 

8500 LET T=1 

8505 IF A$(T)="e" THEN GO TO 85 

30 

8510 LET D$=A$( TO T) 

8520 LET T=T+1:z GO TO 8505 

8530 LET A$=D$: RETURN 

8600 LET B$=R$(R1): LET T=1 

8605 IF B$(T)="6" THEN GO TO 846 

30 

8610 LET W$=B$( TO T) 

8620 LET T=T+1:z GO TO 8605 

8630 RETURN 

8700 LET B$=R$(R2): LET T=1 

8705 IF B$(T)="G" THEN GO TO 87 

30 

8710 LET V$=B$( TO T) 

8720 LET T=T+1: GO TO 8705 

8730 RETURN 


RITA 


DE SALIDA 

40 GO SUB 1250: REM PREGUNTAS 
DISCRIMINATORIAS 

50 GO SUB 140: REM CONSULTAS 
AL USUARIO 

60 GO SUB 480: REM TOMA DE 
DECISION Y ACTUALIZACION DEL 
CONOCIMIENTO BASE 
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70 PRINT INK 6: TAB 3; "PULSE < 
ENTER> PARA CONTINUAR" 

80 IF X$<>"" THEN INPUT LINE 

1$: GO TO 50 


90 PRINT  INK ¿TAB 8: "ADIESTR 
AMIENTO" 
100 PRINT  INK 6: TAB 3:"0 CUALQ 


UIER TECLA Y DESPUES": TAB 33 "<EN 
TER> PARA UTILIZAR RITA" 

110 INPUT LINE X$: GO TO 50 
120 STOP 

130 REM 4342336162616 36-26-1316 -I-I1H IA 
140 REM CONSULTAS AL USUARIO 
150 CLS 

150 PRINT "LOS SIGUIENTES SON L 
OS SUJETOS QUE PUEDO DIFERENCIA 
R" 

170 PRINT 

180 FOR J=1 TO TT 

190 PRINT — INK 53" > "3 INK 7: 
As (J) 

200 NEXT J 

210 GO SUB 1500 

220 IF X$="" THEN PRINT INK 6 
¡"PIENSE EN UNO Y PULSE <ENTER>" 
230 IF X$<>"" THEN PRINT  INK 
¡"ESTOY PREPARADO PARA DETERMIN 
AR CUAL HA ELEGIDO" 
240 IF X$="" THEN 
J$ 

230 LET SUMA=.5 
260 FOR J=1 TO DQ 
270 LET SUMA=SUMA+SUMA 

280 GO SUB 1500 

290 IF X$<>"" AND TT>2 THEN GO 
TO 390: REM COMPROBACION PARA 
DETERMINAR SI SE PUEDE OMITIR 
LA PREGUNTA 

300 PRINT "INTRODUZCA UN NUMERO 
ENTRE 0 Y 1" 

310 PRINT "0=FALSO, 1=VERDAD.$ P 
ARA TERMINAR" 

320 PRINT 2 PRINT — INK S5:E$(J) 
330 INPUT LINE H$2 IF H$="$" T 
HEN PRINT 3: PRINT "GRACIAS": FR 
INT 3 STOP 

340 LET C(J)=VAL H$ 

350 LET C(J)=SUMAXC (J) 

360 NEXT J 

370 RETURN 

380 REM 3303616206 Hd dE IE III 

390 REM COMPROBACION PARA 
DETERMINAR SI LA PREGUNTA SE 
PUEDE OMITIR 

400 LET OMITIR=1 

410 FOR W=1 TO TT 

420 IF ABS (B(W.J)-B(1.J))>.7 T 
HEN LET OMITIR=0 


INPUT LINE 
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430 NEXT W 

4409 IF OMITIR=0 THEN GO TO 3009 
450 LET C(OMITIR)=B(W,J) 

2460 GO TO 360 

470 REM 1693616262636 M 2630 K 10 

480 REM TOMA DE DCISION 

490 FOR J=1 TO TT 

500 LET D(J)=0: LET E(J)=0: LET 
F(J)=0 

310 NEXT J 

520 LET SUMA=. 5 

530 FOR J=i TO TT 

540 LET SUMA=SUMA+SUMA 

550 FOR X=1 TO DQ 

560 REM PRUEBE CON DISTINTOS 
COEFICIENTES EN LAS TRES LINEAS 
SIGUIENTES HASTA OBTENER LOS 
MEJORES RESULTADOS 

570 IF C(X)=B(J,X) THEN LET D( 
J)=D(J)+1 

580 IF ABS (C(X)-B(J,X))<. 6*SUNM 
A THEN  LET E(J)=E(J)+.4 

590 IF ABS (C(X)-B(J,X)>)<1.2x*SU 
MA THEN  LET F(J)=F(J)+.1 

600 NEXT X 

610 NEXT J 

620 LET Ai=1: LET A2=12 LET A3= 
1 

630 LET Fi=1: LET F2=1: LET F3= 
1 

640 FOR J=1 TO TT 

650 IF D(J)>F1 THEN LET Fi=D(J 
3 LET Al=J 

660 IF E(J)>F2 THEN LET F2=E(J 
): LET A2=J3 

670 IF F(J)>F3 THEN LET F3=F(J 
)3 LET A3=J 

680 NEXT J 

690 REM COMUNICACION RESULTADO 
700 PRINT 

710 LET CFLG=0 

720 PRINT "EL RESULTADO MAS PRO 
BABLE ES"*TAB 13 INK 5:¡A$(A1) 
730 IF A2<>A1 THEN PRINT "EL S 
IGUIENTE MAS PROBABLE ES"”*TAB 1: 
INK 5iA$(42): LET CFLG=1 

740 IF A3<>A2 AND A3<>A1 THEN 
PRINT "EL SIGUIENTE MAS PROBABLE 
ES"*TAB 13 INK Si¡A$(A3): LET CF 
LG=2 


750 PRINT 

7560 PRINT  INK 6:"ES CORRECTO E 
L RESULTADO MAS PROBABLE? (S/ 
N) ” 


770 INPUT LINE F$ 

780 IF F$<>"S" AND F$<>"N" THEN 
GO TO 770 

790 IF F$="S" AND X$<>"" THEN 


RETURN 
800 IF F$="S" THEN GO TO 980 
810 IF TT=2 AND Al=1 THEN LET 
Al=2: GO TO 980 
820 IF TT=2 THEN LET Ai=1:2 GO 
TO 980 
830 IF CFLG=0 THEN GO TO 890 
840 PRINT "ES CORRECTA MI SEGUN 
A ELECCION? (S/N)" 
850 INPUT LINE F$ 
860 IF F$="N" THEN GO TO 8909 
870 IF CFLG=1 THEN LET A1=42:3 
60 TO 980 
880 IF CFLG=2 THEN LET A1=A3: 
GO TO 980 
890 GO SUB 1500 
900 FOR J=1 TO TT 
910 PRINT  INK SiJi"- "3 ENK 75 
AS(J) 
920 NEXT J 
930 PRINT 
940 PRINT "CUAL ES EL CORRECTO? 
950 INPUT Al 
960 IF A1<1 OR A1>TT THEN GO T 
O 950 
970 REM 436364616 46-36 dE M6 ME DEI ME 6 IE IE IDE HE HE E ELE 
972 REM ADIESTRAMIENTO DE RITA 
976 REM ACTUALIZACION DEL 
CONOCIMIENTO BASE 
980 FOR J=1 TO DQ 
990 IF B(A1,J)<>0 THEN LET B(A 
1,3)=(C(J)+5*B(A1,J))/6 
1900 IF B(A1,J)=0 THEN LET B(A1 
¿3)=0 (3) 
1010 LET B(A1,J)=INT (.5+(10*B(A 
1,3))/10) 
1020 NEXT J 
1030 PRINT 
1040 IF Us$="" THEN RETURN 
10509 FOR J=1 TO TT 
1060 PRINT : GO SUB 1500 
1070 PRINT AS(J) 
10809 PRINT 
1090 FOR K=1 TO DA 
1100 PRINT E$(K):3 INK 5:B(J,K) 
1110 NEXT K 
1120 NEXT J 
1130 PRINT 
1140 RETURN 
1150 REM 463646 36-36 36-16-36 3 35d IE DESEE IE ME 6H IE AE E 
1160 REM OPCIONES DE SALIDA 
1170 LET TT=0 
1180 LET TT=TT+1 
1190 GO SUB 1500 
1200 PRINT  INK 6: "INTRODUZCA LA 


OPCION NUMERO "sTT”" PARA ACABA 
R PULSE <ENTER>" 
1210 INPUT LINE A$(TT) 
1215 PRINT : PRINT AS$(TT) 
1220 IF AS$(TT,1)=" " OR TT=51 TH 
EN LET TT=TT-12 RETURN 
1236 GO TO 1180 
1240 REM 36363646426 36 86 16-36 36302026 6 III IA 
1250 REM 
PREGUNTAS DISCRIMINATORIAS 
1260 CLS 
1270 FOR J=1 TO TT 
1280 PRINT A$(J) 
1290 NEXT J 
1300 LET DO=09 
1310 LET DO=D0+1 
1320 GO SUB 1500 
1330 PRINT INK 6: "INTRODUZCA LA 
PREGUNTA NUMERO "3DQ”?" PARA ACA 
BAR PULSE <ENTER>" 
1340 INPUT LINE E$(DQ) 
1345 PRINT : PRINT E$(DOQ) 
1350 IF E$(DQ,1)=" " OR DO=51 TH 
EN LET DQ=DO-1: RETURN 
1360 GO TO 1310 
1370 REM 446216 96 36 26-20 26262 2626 6H HIM 
1380 REM INICIALIZACION 
1382 POKE 23658,8 
1384 POKE 23609, 40 
13865 POKE 23692,255 
1390 BORDER 13 PAPER 12 INK 73 C 
LS 
1400 REM REDUZCA EN LA LINEA 
SIGUIENTE EL TAMANO DE LAS 
MATRICES PARA ADAPTARLAS A SUS 
NECESIDADES 
1410 DIM A$(50,15): DIM B(50.50) 
: DIM C(50)2 DIM D(5S0)3 DIM E$(5 
0,29): DIM E(50): DIM F(50) 
1420 LET X$="" 
1430 PRINT "SI QUIERE VER EL CON 
OCIMIENTO” 
1440 PRINT "BASE ACTUALIZADO, PUL 
SE CUALQUIER” 
1450 PRINT "TECLA SEGUIDA DE <EN 
TER> DESPUESDE CADA EJECUCION" 
1460 PRINT : PRINT "SI NO LO DES 
EA.PULSE SOLO LA TECLA <ENTER 
> 
1470 INPUT LINE U$ 
1480 CLS 
1490 RETURN 
1500 PRINT —-INK 23 "---=--======- 
1510 POKE 23692, 255 
1520 RETURN 
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Programas para Amstrad 


SSLISP 


1 REM 4040 de 04 04 00 00 40 40 20 04 30 26 


er 
IR 
4R 
SR 
10 
20 
es 
26 
27 
30 
40 
so 
60 
70 
80 
90 
100 
110 
120 


130 
140 


150 
160 
165 
170 
180 


EM + * 

EM * S.S. LISP + 

EM »* * 

EM 400 00 00 dd e 0 00 06 0 0 06 

REM 

MODE 1:WINDOW $0,1,40,1,23 


WINDOW 41,1,40,24,25 

PAPER 41,1:PEN 41,0 

CLS u1 

FIN=1 

ON ERROR GOTO 3690 

GOTO 3550: REM INICIALIZACION 

REM 

REM SO DOMO DO DO DO 0 000 0 00 DDD 0 0 E 

AS=MIDS(AS,E):AS=LEFTS(AS,LEN(A$)-1) 

RETURN 
REM 
PRINT 
IF FIN=1 THEN FIN=O:PRINT 
MINAR PULSA ([ ENTER 3" 
PRINT STRINGS$(39,"-") 
GOSUB 3730:REM INTRODUCCION DE 

MENSAJES 


MUDO MODO DO 4 DD dd DE E DD DE DE E E DE O E 


" FARA TER 


NN=0 

LINE INPUT "3 
CLS $1 

IF AS="" THEN 3600 

REM SOMO DO DO DDD DADO DEDO 


"AS: AS=UPPERS(AS) 
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190 
200 
210 
22o 
230 
240 
250 
260 


270 


280 
290 
300 
310 


320 
330 


340 
350 
360 
370 
380 
390 
400 


FOR J=1 TO 12 

X(JIRHO01Y(J)=0:2(J)=0 

NEXT J 

REM 0 DO DO DO DO 0 0 0 DO O DE DO dE 0 DA 
R=0:S=0:T=0:CUNO=0:CDOS=0:ED=0 
FOR J=1 TO LEN(AS) 

BS=MIDS(A$,J),1) 

IF Bs="(" THEN S=S+1:2(S)=J:IF T=0 
THEN CUNO=J 

IF B$=")" THEN TeT+1:Y(T)=J:1F CDOS 
<>0 AND ED=0 THEN ED=J-1 

IF T=1 AND B$=")" THEN CDOS=J 

IF BS=" " THEN R=eR+1:X(R)=J 

NEXT J 

IF S=T THEN 370:REM 


EQUILIBRADO DEL NUMERO DE ( ) 

IF S<T THEN PRINT " -> OMISION DE 
mo 

IF S>T THEN PRINT " -> OMISION DE 
y 

INPUT " + ",BS 

AS=AS8+BS 

GOTO 190 

IF NWDS=0 OR NN=1 THEN 440 


MS=LEFTS(AS,X(1)-1) 

FOR J=1 TO NWDS 

IF MS=NS(J) THEN AS$=0$(J)+MIDS(AS, 
LEN(NS(J))+1) 


410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
s10 


s20 
530 
540 
550 
360 
570 
seo 
590 
600 
610 


620 
630 


640 


650 
660 


670 
6€0 
670 


700 
710 


720 
730 
740 


750 
760 
770 


780 
790 
800 


810 
ezo 


830 
840 
eso 
860 
870 
ego 
eo 


NEXT J 
NN=1 

GOTO 190 

FLAG=0:B8=" NADA" 

IF LEFTS(AS,5)="CAR (" THEN FLAG=1 
IF LEFTS(AS,5)="CDR (" THEN FLAG=2 
IF LEFTS(AS,6)="CONS (" THEN FLAG=3 
IF LEFTS(AS,6)="ATOM (" THEN FLAG=4 
IF LEFTS(AS,7)="IGUAL (" THEN FLAG=S 
IF LEFTS(AS,6)="NULO (" THEN FLAG=6 
IF LEFTS(AS,9)="MIEMBRO (" THEN FLAG 
27 

IF LEFTS(AS,8)="MIGUAL (" THEN FLAG= 
8 

IF LEFTS(AS,7)="JUNTA (" THEN FLAG=9 
IF LEFTS(AS,10)=" INVIERTE (" THEN 
FLAG=10 

IF LEFTS(AS,7)="MISMO (" THEN FLAG= 
11 

IF LEFTS(AS,7)="LISTA (" THEN FLAG= 
12 

IF LEFTS(AS,8)="DEFINE (" THEN FLAG= 
13 

IF LEFTS(AS,6)="INC1 (" THEN FLAG=14 
IF LEFTS(AS,6)="DEC1 (" THEN FLAG=15 
IF LEFTS(AS,7)="CERO? (" THEN FLAG= 
16 

IF LEFTS(AS,7)="RESTA (" THEN FLAG= 
17 

IF LEFTS(AS,S)="EXP (" THEN FLAG=18 
IF LEFTS(AS,5)="MAX (" THEN FLAG=19 


IF LEFTS(AS,5)="MIN (" THEN FLAG=20 


IF LEFTS(AS,6)="SUMA (" THEN FLAG=21 
IF LEFTS(AS,7)="MENOS (" THEN FLAG= 
ez 
IF LEFTS(AS,8)="DIVIDE (" THEN FLAG= 
ex 


IF LEFTS(AS,7)="RECIP (" THEN FLAG= 
24 
IF LEFTS(AS,7)="RESTO (" THEN FLAG= 
2s 
IF LEFTS(AS,6)="MULT (" THEN FLAG=26 


IF LEFTS(AS,7)="MAYOR (" THEN FLAG= 
e? 

IF LEFTS(AS,7)="MENOR (" THEN FLAG= 
ee 

IF LEFTS(AS,11)="NEGATIVO? 
FLAG=29 

IF LEFTS(AS,9)="NUMERO? (" THEN 
FLAG=30 

IF LEFTS(A$,6)="UNO? (" THEN FLAG=31 
IF FLAG>13 THEN 790 

ON FLAG GOSUB 940,990,1070,1210,1300 
,1430,1480,1610,1800, 1860,2100,2230, 
3400 

GOTO 830 

IF FLAG>24 THEN 820 

ON FLAG-13 GOSUB 2280,2330,2380,2450 
,»2660,2700,2890,2920,2970,3020,3060 
GOTO 830 

ON FLAG-24 GOSUB 3130,3170,3220,3260 
,3300,3350,2380 

IF FLAG<>0 THEN GOSUB 870:GOTO 110 
PRINT $1, " NO ENTIENDO ...” 

PRINT 41, As 

GOTO 110 

REM ** CONTESTACION DE RETORNO +. 
PRINT " SU VALOR ES..." 

IF B$=" C” THEN B$=" C  ( CIERTO ) 


(" THEN 


900 
910 
920 
930 
940 
950 


960 


970 
980 
990 
1000 
1010 
1020 
1030 


1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


1190 
1200 
1210 
1220 
1230 
1240 
1250 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


1530 


IF BSs<>"()" THEN PRINT BS$ 
IF B$="()" THEN PRINT " 
RETURN 

REM 400000 36 24 24 0 0 0 0 00 E 26 06 06 0 dd 0 26 6 46 0 40 de 

REM +. CAR e. 

IF S=2 THEN BS$S=MIDS(A$,2(2)+1,X(2)- 
2(2)) 

IF S>2 THEN B$=MIDS(A$,CUNO,CDOS- 
CUNO+1 > 


NADA" 


RETURN 
A id 
REM .n CDR .. 

GOSUB 940 

LB=LEN(BS)+7 
B$="("+MIDS(AS,LB,ED-1) 

IF RIGHTS(B$,2)="))" THEN BS=LEFTS 
(BS,LEN(BS)-1) 

IF MIDS(B$,2,1)=" " THEN B$="("+MID 
$(B$,3) 

RETURN 

REM 000000 00 04 20 40 34 26 20 0 00 20 30 00 20 6 0 10 00 2 0 0 0d 

REM *. CONS .. 
BS=MIDS(AS,7,LEN(A$)-1) 

J=0 

IF LEFTS(BS,1)="(" THEN J=1 

JeJ+1 

IF MIDS(B$,J,1)="(" THEN 1150 

IF J<LEN(B$) THEN 1110 

Bs=" CONS INCORRECTO" ¿RETURN 
LB=LEN(BS$)-1 

BS=" ("+LEFTS(BS,J-1)+MIDS(B$,J+1) 
BS=LEFTS(BS$,LB) 

IF RIGHTS(B$,2)=" )" THEN BS=LEFTS 
(BS,LEN(BS)-2)+")" 

RETURN 

REM 400 00 40 2h dd 06 00 00d 00 00 UE DO 0 0 00 00 0 dE 00 06 30 00d 

REM -. ATOM *. 
AS=MIDS(AS,7,LEN(AS)-1) 

J=0 

J=J+1 

IF MIDS(A$S,J,1)=" " OR MID$(AS$,J,1) 
="(" THEN RETURN 

IF J<LEN(AS) THEN 1240 

Bs=" c* 

RETURN 

REM 300044 00 4 30 30 30 30 00 00 0h 00 Dl Dl DD 06 000 36 0 0 dd 

REM . IGUAL +. 

E=8:GO0SUB 80 

J=0 

J=J+1 

IF MIDS(A$S,J,1)=")" THEN RETURN 

IF MIDS(AS,J,1)=" " THEN 1380 

IF J<LEN(AS) THEN 1330 

RETURN 

CS=LEFTS(AS,J-1) 

AS=MIDS(AS,J+1) 

IF C$=A8 THEN Bs$=" C" 

RETURN 

REM 000014 00 00 30 30 36 20 26 24 06 20 00 DO 20 0 20 00 0 00 0 40 40d 

REM «... NULO .n 

IF AS="NULO ()" THEN B$=" NULO NE 
CESITA UN ARGUMENTO" 

IF AS="NULO (())" THEN B$=" C" 
RETURN 

REM 440 dh 00 00 34 00 2d 20 16 20 40 06 0 40 40 20 00 20 0 40 4 0 20 

REM .. MIEMBRO n. 
CSs=MIDS(AS,10) 

J=1 

J=J+1 

IF MIDS(C$,J,1)=")" OR MIDS(C$,J)»1) 
=”(" THEN DS=LEFTS(C$,J):GOTO 1550 
IF J<LEN(CS) THEN 1310 
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1540 
1550 
1560 
1570 


1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


1740 
1750 
1760 
1770 


1780 
1790 
1800 
1810 
1820 


1830 
1840 
1850 
1860 
1870 
1880 


1890 
1900 
1910 
1920 
1930 
1940 
1950 


1960 


1970 
1980 
1990 
2000 
2010 


2o20 
2030 
2040 
2050 
2060 
2070 
2080 


2090 
2100 
2110 
2120 


2130 
2140 
2150 


RETURN 

J=LEN(DS) 

J=J+1 

IF MIDS(CS,J,LEN(DS))=D$ THEN  C$= 
LEFTS(CS,LEN(CS$)-1):GOTO 1730 

IF J<LEN(C$) THEN 1560 

RETURN 

REM 4034 00 04 36 dd 06 2 36 0 06d 00 HE dE dd 06 26 6 dd dd 

REM .. MIGUAL e. 
CS=MIDS(AS$,9) 

J=0 

J=J+1 

IF MID$(C$,J,1)=" " THEN 1680 

IF J<XLEN(CS$) THEN 1640 

RETURN 

DS=LEFTS(C$,J) 

CS=MIDS(C$,J+2) 
CS=LEFTS(CS,LEN(CS)-2)+" " 

J=0 

J=J+1 

IF MIDS(CS,J,LEN(DS))=DS THEN Bs$="( 
“"+MIDS(C$,J):GOTO 1760 

IF J<LEN(CS$) THEN 1720 

RETURN 

BS=LEFTS(BS,LEN(B$)-1)+")" 

IF RIGHTS(B$,3)=")))" THEN B$=LEFTS 
(BS,LEN(B$)-1):GOTO 1770 

RETURN 

LA di 

REM $. JUNTA .. 
Bs$=MID$(A$,8) 
BS=LEFTS(B$,Y(1)-8)+" 
)-6) 
BS=LEFTS(BS,LEN(B$)-1) 
RETURN 

A dae 

REM «.. INVIERTE +. 

BS$= .. 
AS=MIDS(A$S,11):AS=LEFTS(AS,LEN(AS)- 
2) 

CT=0 

J=0 

J=J+1:31F J>LEN(AS) THEN 2020 

IF MIDS(A$S,J,1)=" " THEN 1950 

IF MIDS(AS,J,1)="(" THEN 1960 

GOTO 1910 
CT=CT+1:GS(CT)=LEFTS(AS$,J-1):A$=MID 
sS(AS,J+1):GOTO 1900 

J=J+111F MIDS(A$,J,2)="))" 
2080 

IF MIDS(A$S,J,1)=")" THEN 2010 
IF J=LEN(AS) THEN 2000 

GOTO 1960 
CT=CT+1:G$(CT)=A$+")":GOTO 2030 
CT=CT+1:3GS(CT)=LEFTS(AS,J):A$=MIDS$ 
(AS,J+1):GOTO 1900 


"+MID$(B$,2(3 


THEN 


CT=CT+1:2GS(CT)=AS 

FOR M=CT TO 1 STEP -1 
Bs=B$+G$(M):1F M>1 THEN B$=BS+" " 
NEXT 

Bs="("+Bs+")" 

RETURN 
CT=CT+136S(CTI=LEFTS(AS,J+1):A$=MID 
sS(AS,J+1):GOTO 1900 

A dirt 

REM .. MISMO $. 

E=8:GOSUB 80 

M=ASC(A$S)21F M>47 AND M<58 THEN 
2470 

J=0 

J=J+1 

IF MIDS(AS,J,2)=") " THEN J=J+1: 
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2160 
2170 
2180 
2190 
2200 


2210 


2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
23650 
2370 
2380 
2390 
2400 
2410 
2420 


2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 


eseo 
2530 
2540 
2550 
2560 


2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
e720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


2800 


GOTO 1380 

IF MIDS(AS,J,3)=")))" THEN 2200 
IF MIDS(A$,J,2)="))" THEN 2210 
IF J<LEN(AS) THEN 2140 

RETURN 
CS=LEFTS(AS,J+2)1AS=MIDS(AS,J+4): 
GOTO 1400 
CS=LEFTS(AS,J+1)1AS=MIDS(AS,J+3): 
GOTO 1400 

REM 300004 00 0000 20 34 00 20 00 00 00 00 00 00 00M 00 04 00H 00d 
REM .. LISTA «e 
E=8:GOSUB 80 

Bs" ( "”+As+" ) y 

RETURN 

REM 0000 06 00 00 00 00 20 20 20 00 2 00 00 00 00 0 00 00 00 00 20 00M 06 
REM .. INC1 .. 
E=7:+GOSUB 80 
BS=STRS(VAL(AS)+1) 

RETURN 

PREM 4000 00 04 00 00 00 00 20 06 00 0 DE DO DO DE 00 0 EH 
REM .. DEC1 *. 
E=7:GOSUB 80 
BSs=STRS(VAL(AS)-1) 

RETURN 

REM 000004 00 00 00 20 30 00 30 30 DO 0 0 00 00 O 04 06 0 00 0 0d 
REM e. CERO? e. 

IF FLAG=16 THEN Ex=B 

IF FLAG=31 THEN E=7 

GOSUB 80 

IF AS="0" AND FLAG=16 OR As$="1" 
FLAG=31 THEN B$=" C" 

RETURN 

REM 4000000 00 30 00 30 36 00 26 00 dl 0 00 00 06 0 00 00 0 6 Hd 


AND 


REM ** DOS ARGUMENTOS —** 
E=8:G0SUB 80 

J=0 

J=J+1 


IF MIDS(A$,J,1)=" " THEN 2520 

IF J<LEN(AS) THEN 2480 

B$="sw ERROR -— NO SE ADMITE UN 
UNICO ARGUMENTO *": RETURN 
P=VAL(LEFTS(A$,J-1)) 
Q=VAL(MIDS(A$S,J+1)) 

IF FLAG=17 THEN B$=STRS(P-Q):RETURN 
IF FLAG=23 OR FLAG=2S THEN B=P/Q 
IF FLAG=2S THEN B=INT(0.5+0*(B-INT( 
B))*1000)/1000 

IF FLAG=18 THEN B=PQ 

IF FLAG=11 AND P=Q THEN B$=" C" 

IF FLAG=27 AND P>Q THEN B$=" C" 


IF FLAG=28 AND P<Q THEN B$=" C” 
IF FLAG=32 THEN B=P-Q 

IF FLAG=11 OR FLAG>2€ THEN RETURN 
Bs=STRS$(B) 

RETURN 

CA it 
REM. +. EXP .. 

E=65:GOSUB 80 

GOTO 2470 


REM 0646 dt 34 34 30 26 20 24 00 06 06 06 46 26 00 00 06 00 dl 40 0 26 0 
REM +... MAX ( MIN SUMA MULT ) **. 
FS=LEFTS(A$,3):AS=MIDS(A$,6) 
CT=O0:FLAG=0 
IF FS="MULT" 
J=0 

J=J+1 

IF MIDS(A$S,J,1)=" " THEN 2790 

IF J<LEN(AS) THEN 2750 

IF J=LEN(AS) THEN FLAG=1 
P=VAL(LEFTS(AS,J-1)):1F FLAG=0 THEN 
AS=MIDS(A$S,J+1) 

IF FsS<>"SUMA" AND CT=O0 THEN CT=P 


THEN CT=1 


2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 


3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 


IF FS="MAX" AND P>CT THEN CT=P 
IF F$="MIN" AND P<CT THEN CT=P 
IF Fs$="SUMA" THEN CT=CT+P 


1F FS="MULT" THEN CT=CT+*P 

IF FLAG=0 THEN 2740 
Bs=STRS(CT) 

RETURN 

REM 00.44 00 00 00 06 10 00 00 00 30 36 3 0 DE 0 DE DE DD DO 
REM *. MIN .. 

GOTO 2710 

REM 0000 06 00 09 00 40 40 06 30 10 00 00 30 30 00 00 06 0 0 0 DD A 
REM  *. SUMA en 
Fs="SUMA" 

AS=MIDS(AS,7) 

GOTO 2720 

REM 0000 04 06 00 00 00 30 00 00 00 20 DO dd DE DO 0 dE 0 0 0 
REM «. MENOS $. 


E=B:GOSUB 80 
BSs=STRS(-VAL(AS)) 

RETURN 

REM 0034 04 00 00 00 00 dh 00 00 00 dE DO DO 0 DE O 0 A DD 0 


REM. DIVIDE .. 

E=9:GOSUB 80 

GOTO 2470 

REM 4044 4 00 00 40 20 00 26 00 06 30 DO DO DE AO dd 00 0 00 0 0 0 

REM .. RECIP .. 

E=8:G0SUB 80 

IF A$="0" THEN B$=" DIVISION POR CE 


RO - NO PERMITIDA' : RETURN 
B=1/(VAL(AS)) 


Bs=STRS(B) 

RETURN 

REM 0000 40 04 00 00 00 20 20 00 00 06 DQO 0 0 00 00 00 0 0 00 0 0 
REM .. RESTO ... 
E=8:G0SUB 80 

GOTO 2470 

REM 04400 00 0h 00 0 00 00 00 do dl dd 0 DD dd 00 00 0 0 0 
REM». MULT ... 
F$="MULT" 

AS=MIDS(AS),7) 

GOTO 2720 


REM 000400 00 40 00 dd 20 0 00 00 20 30 0 00 30 00 00 00 20 20 00 0 de 
REM. MAYOR .. 

E=8:G0SUB 80 

GOTO 2470 

REM 0400 00 00 00 00 00 00 30 0 00 00 00 00 00 QQ 0 0 0 40 40 00 dd 
REM. MENOR e 

E=8:GOSUB 80 

GOTO 2470 

REM 0000 00 00 30 00 00 00 20 00 0 00 00 00 0 00 00 00 00 0 40 00 0 

REM «. NEGATIVO? .. 
E=12:GOSUB 80 

IF VAL(AS)<0O THEN B$=" C" 

RETURN 

REM 000000 00 04 00 20 00 20 30 20 40 30 DO HO 0 DO 0 0 00 0 0 0 46 e 

REM Us. NUMERO e 
AS=MIDS(AS,10) 

IF ASC(A$)>44 AND ASC(A$S)<58 THEN 


3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 


3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 


3580 


3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


3680 
3690 


3700 
3710 


3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 


Bs=" Cc” 

RETURN 

A iio 
REM .. DEF INE .. 
AS=MIDS(AS,9) 
FS=LEFTS(AS,X(2)-9) 
GS=MIDS(A$S,X(4)-6) 

J=0 

J=J+1 

IF MIDS(G$,J,1)=" " THEN 3490 
IF J<LEN(GS) THEN 3450 


Bs=" ERROR EN LA DEFINICION": 
RETURN 

Gs=LEFTS(G$,J-1) 

NWDS=NWDS+ 1 
OS(NWDS)=GS:NS(NWDS)=F$ 

Bs=F$ 

RETURN 

REM 0d dd 00 00 20 20 20 20 26 00 00 0 00 DO 0 0 00 0 0 00 Hd 
REM INICIAL IZACION 

CcLs 


DIM G$(20),0$(20),N$(20),X(12)» 
Y(12),2(12) 
NWDS=0 1: REM CONTADOR DE 

NUEVAS PALABRAS DEFINIDAS 

POR EL USUARIO 

GOTO 110 
cLs 
LOCATE 3,10 
PRINT " QUIERES TERMINAR [ S , NJ 
GOSUB 3770 
FIN=1 
AS=INKEYS 
IF As="S" 
IF AS="N" 
GOTO 110 
GOTO 3650 
IF ERR=S THEN PRINT " LA ENTRADA 
NO ESTA CORRECTAMENTE ESCRITA": 
GOTO 110 
IF ERR=13 THEN PRINT " 
LETRAS CON NUMEROS" 


THEN CLS:END 
THEN CLS: GOSUB 3810 : 


CONFUNDES 


PRINT " LA ENTRADA NO ESTA CORREC 
TAMENTE ESCRITA" 
GOTO 110 


SOUND 1,100,6,13 

SOUND 1,1,10 

SOUND 1,100,6,13 

RETURN 

FOR T=200 TO 100 STEP -5 
SOUND 1,T1,3 

NEXT 

RETURN 

FOR T=100 TO 200 STEP S 
SOUND 1,T,3 

NEXT 

RETURN 


PROLOG-A 


10 REM 


1 REM 4044000 00 0 4h 30 00 30 20 00 00 00 44 de 


2 REM + * 
3 REM + PROLOG-A * 
4 REM e * 
S REM 4000000 00 00 00 00 00 04 00 30 00 20 20d 


20 REM 

30 GOTO 350 

40 PRINT " NO HAY ( MAS ) RESPUESTAS .": 
RETURN 
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50 
60 
70 
80 
90 
100 


110 
120 


130 
140 


150 
160 
170 


180 
190 
200 


210 
220 


230 
240 
250 


260 
270 


280 
290 
300 


310 
320 


330 
340 


350 
360 


370 
380 
390 
400 
410 


420 
430 
440 
450 
460 
470 
480 
490 
s00 
s10 
520 
530 
540 


GOSUB 3270:REM INICIALIZACION 

REM 006 00 00 0 00 0 0d 0 0 06 006 0D 0 DO HH 
PRINT 
INPUT 
IF J$="" THEN 3310 


"%."+J$:JS=UPPERS(J$) 
IF J$="LISTA TODO" THEN GOSUB 1860:G 
OTO 70 

IF LEFTS(J$,6)="LISTA " THEN J$=MIDS$ 
(J$,6)+" "2GOSUB 990:GOTO 70 

IF RIGHTS(J$,1)<>")" THEN PRINT "1." 
¿INPUT M$2J$=J$+MS:GOTO 120 
LI=LEN(JS) 

JS=LEFTS(JS,LIT-1)+" "¿REM 

QUITA PARENTESIS FINAL Y LO CAMBIA 
POR UN ESPACIO 

LIJ=LEN(J5$) 

FLAG=0 

IF LEFTS(JS$,5)="METE(" THEN J$=MIDS( 
J$,6)1FLAG=1 

RULFLAG=0 :MASFLAG=03ARITFLAG=0 

FOR R=1 TO LEN(J$S) 

IF MIDS(JS,R)4)=" SI " 
R:FLAG=6 

IF MIDS(JS,R,3)=" Y " THEN MASFLAG=R 
IF MIDS(JS$,R)5)="SUMA(" THEN ARITFLA 
G=1 

IF MIDS(JS,R,6)="VECES(" THEN ARITFL 
AG=e 

IF MIDS(JS$,R,7)=" MENOR " THEN ARITF 
LAG=3 

IF MIDS(JS,R,3)="ENT" 
4 

NEXT R 

IF LEFTS(J3$,3)="ES(" THEN J$=MIDS$(J$ 
,»4) 1 FLAG=2 

IF LEFTS(J$,9)="CUAL(X : 
1D$(J3$,10):FLAG=3 

IF LEFTS(J$,15)="CUAL((X 2) z X 
EN. JS=MIDS(J$,16): FLAG=4 

IF FLAG=0 THEN PRINT" ERROR DE SINT 


AXIS ":2GOTO 70 

LJ=LEN(JS) 

REM AHORA BUSCA LAS SUBRUTINAS 

PERTINENTES 

IF MASFLAG<>0 THEN GOSUB 1950: GOTO 

70: REM CODIFICA LA REGLA *vY” 

IF RULFLAG<>0 AND FLAG<>S5 THEN GOSUB 

1110: REM CODIFICA LA REGLA 
CONDICIONAL SI” 

IF ARITFLAG<>0O THEN GOSUB 2430:GOTO 

70:REM OPERACIONES ARITMETICAS 

IF RIGHTS(J$,3)=" X " OR RIGHTS(J$,3 

Ju" 2 " THEN JS=LEFTS(JS,LIJ-2)+" " 

LJ=LEN(JS) 

IF FLAG=1 THEN GOSUB 440:REM METE 

IF FLAG=2 THEN GOSUB 520:REM ES 

IF FLAG=3 THEN GOSUB 610:REM CUAL 

IF FLAG=4 THEN GOSUB 830:REM CUAL 2 


THEN RULFLAG= 


THEN ARITFLAG= 


" THEN J$=M 


"TH 


GOTO 70 

REM 000000 14 30 06 00 30 06 30 34 30 06 0 ME ME M6 26 46 6d 46 6 6 Hd 
REM METE ( AFIRMACIONES ) 
K=0 

K=Kk+1 

IF Z$(K)="" THEN 2$(K)=J$:RETURN 
IF K<1000 THEN 460 

PRINT " MEMORIA COMPLETA" 


RETURN 
A 
REM ES 

K=0 

K=K+1 
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550 
560 
570 
seo 
590 
600 
610 


620 
630 
640 
650 
660 
670 


680 
690 
700 
710 
720 
730 
740 
7530 
760 
770 
780 


790 
800 
B10 
ezo 
830 
840 
eso 
8650 
870 
eso 
890 
900 
910 
920 
930 
940 


950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 


1160 
1170 


IF 28(K)="" THEN 580 

IF 2$(K)=J]8 THEN PRINT" 
IF K<1000 THEN 540 
PRINT " NO" 

RETURN 

A iii 
REM CUAL 

( BUSCA LAS CORRESPONDENCIAS ) 


SI":GOTO 570 


IF LEFTS(J$,1)="X" THEN 710 
JS=LEFTS(JS,LJ-1) 

K=0 

K=kK+1 

IF 2$(K)="" THEN 690 


IF JS=LEFTS(Z$(K),LEN(J$)) THEN PRIN 
T RIGHTS (25$(K), (LEN(Z$(K))-LEN(J$))) 


IF K<1000 THEN 6450 

GOSUB 40 

RETURN 

REM CUESTIONES QUE COMIENZAN CON X 


J$=MIDS(J$,3,LEN(J$)-3) 
LI=LEN(JS$) 

K=0 

KeK+1 

IF 26(K)="" THEN 800 
QS=MIDS(Z$(K) ,LEN(Z$(K))-LJI,LJ) 


IF Q8=J]$ THEN PRINT LEFTS$(2$(K) ,LEN( 
Z2$(K))-(LJ+2)) 


IF K<1000 THEN 750 
GOSUB 40 

RETURN 

REM 04600 00 06 04 06 06 20 00 30 00 00 00 0000 DO 06 00 0 0 00 
REM cual 2 
JS=LEFTS(JS,LJ-2) 
LI=LEN(JS$) 

K=0 

K=k+1 

IF 2$(K)="" THEN 960 
LFLAG=0 

FOR L=1 TO LEN(2$(K))-LJ 


IF MIDS(28(K),L,LJ)=J$ THEN LFLAG=L 
NEXT L 
IF LFLAG=0 THEN 950 
PRINT LEFTS(25$(K) ,LFLAG-2)¿MID$(25$(K 
)» (LFLAG+LJ)) 
IF K<1000 THEN 870 
GOSUB 40 
RETURN 
A cdt 
REM LISTADO 
K=0 
K=k+1 
IF 2$(K)="" THEN RETURN 
LFLAG=0 
FOR L=1 TO LEN(2$(K))-LEN(JS$) 
IF MIDS(28(K),L,LEN(J$))=J$ THEN LF 
LAG=1 
NEXT L 
IF LFLAG=1 THEN PRINT 25$(K) 
IF K<1000 THEN 1010 
RETURN 
REM 9040 0430 00 24 06 24 06 30 0 06 30d DO 0 0 00 0 00 20 06 0 0H de 
REM CONFORMA LAS REGLAS 
R=RULFLAG 
ES=LEFTS(JS,R):FS=MIDS(JS$,R+4) 
IF LEFTS(ES,1)<>"X" THEN PRINT 
ROR EN LA REGLA":GOTO 70 
REM LA SIGUIENTE LINEA DETECTA 
ENTRADAS DEL TIPO: 
X ABSORBE 2 SI X ES 2 
IF RIGHTS(F$,2)="2 " THEN 1390 
PRINT TAB(10);"INTERPRETANDO LA REG 


"ER 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


1260 
1270 


12:80 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


1540 
1550 
1360 
1370 
1580 
1590 
1600 


1610 


16520 
1630 
16540 
1650 
1660 
1670 


1680 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


LA" 
FOR T=1 TO 100 

Rs TI” 

NEXT T 

ES=MIDS(ES,3):F$=MIDS(F$,3) 
K=0:¿RR=0 

Kak+1 

IF 2$(K)="" THEN 1300 

IF RIGHTS(ZS(K),LEN(F$))<>FS$ THEN 1 
370 

RR=RR+1 
RS(RR)=LEFTS(25$(K) , (LEN(Z5S(K))-LEN( 
FS)))+E8 
PRINT "> 
GOTO 1230 
IF RR=0 THEN RETURN 

RC=0 

RC=RC+1 

26 (K)=RS(RC) 

IF K<1000 THEN K=K+1 

IF RC<AR THEN 1320 

RETURN 

IF K<1000 THEN 1230 

RETURN 

REM * REGLA CON DOS VARIABLES 

FOR T=1 TO 100 

RS" 

NEXT T 

K=0:RR=0 

IF K=1000 THEN RETURN 

Kmk+1 

IF 28(K)="" THEN 1770 

REM DIVISION EN TRES PALABRAS 
0$=2$(K) 

J=0 

J=J+1 

IF MIDS(0$,J,1)=" " THEN 1540 

IF J<LEN(Q$) THEN 1500 

PRINT "ERROR EN LA INTERPRETACION D 
E LA REGLA":GOTO 70 

AS=LEFTS(0S,J) 

QS=MID$(0$,J+1) 

J=0 

J=J+1 

IF MIDS(0$,J,1)=" " THEN 1610 

IF J<LEN(QS) THEN 1570 

PRINT "ERROR EN LA INTERPRETACION D 
E LA REGLA":GOTO 70 

Bs=LEFTS(0Q$,J) 


OS=MIDS(0$,J+1) 

J=0 

J=J+1 

IF MIDS(Q$,J,1)=""" THEN 1680 

IF JXLEN(QS) THEN 1640 

PRINT "ERROR EN LA INTERPRETACION D 
E LA REGLA":GOTO 70 

PRINT TAB(10);"INTERPRETANDO LA REG 
LA" 

CS=LEFTS(0$,J) 
MS=MIDS(FS,3,LEN(B$)) 

IF Bs<>MS THEN 1440 


"¿RS(RR) 


RR=RR+1 
N$=MIDS(ES,3,LEN(ES$)-4) 
RS(RRA)=AS+N$+C5S 

PRINT "> "¿RS(RR) 

GOTO 1440 

IF RR=0 THEN RETURN 
M=0 

M=M+1 

IF M>RR THEN RETURN 
Z2$(K)=RS(M) 


IF K=1000 THEN PRINT " NO ESTA EN 


1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


1960 


1970 


1980 


1990 
2000 


2010 
2020 
2030 
2040 
2050 


2060 
2070 


2080 
2090 
2100 
2110 
2120 
2130 


2140 
2150 
2160 


2170 
2180 
2190 
2200 
e210 
e220 
2230 
2240 
2250 


2260 
2270 


2280 
2290 


2300 
e310 


e320 
2330 
2340 
2350 
2360 


2370 


MEMORIA":GOTO 70 

K=K+1 

GOTO 1790 

REM 060 d4 dl d6 16 dE 16 36 16 36 dd 16 dE 36 EDO E HI 

REM LISTA TODO 

PRINT 

K=0 

K=K+1 

IF 2$(K)="" THEN RETURN 

PRINT 25$(K) 

IF K<1000 THEN 1890 

RETURN 

REM 040400 06 34 00 06 00 0 dE 06 00 6 DE dd 0 06 96 dE 0 6d 

REM CONFORMA LAS REGLAS CON 
DEL SIGUIENTE TIPO : 

REM (X ABSORBE 2 SI X (VERBO) 

ALGO ”Y” Z (VERBO) OTRA COSA 

REM EL CONCEPTO X DEBE ESTAR EN 

LISTA, PRECEDIENDO A Z,PARA TODOS 

LOS EJEMPLOS QUE SE 

REM CODIFIQUEN DIVIDIDOS EN 

SECCIONES . 

JS$=MIDS(J$,2): REM ELIMINA *X” 

PRINT TAB(10)3"INTERPRETANDO LA REG 

LA" 


y? 


J=1 

J=J+1 

IF MIDS(J$,J,1)=" " THEN 2060 
IF J< LEN(J$) THEN 2020 


PRINT "ERROR EN LA 
E LA REGLA" :RETURN 
AS=LEFTS(JS,J):REM RELACCION 1 
J$=MIDS(J$,3+7): REM  DIVIDE AL 
COMIENZO DE LA SEGUNDA RELACCION 
J=1:CNT=0 

J=J+1 

IF MIDS(J$,J,1)=" " 
IF CNT=2 THEN 2140 
IF J< LEN(JS) THEN 
PRINT "ERROR EN LA 
E LA REGLA" :RETURN 
BS=LEFTS(J$,J):REM CONCEPTO 1 
CS=MIDS(J$,J+4): REM CONCEPTO 2 

IF CS=" " THEN PRINT "ERROR EN LA 1 
NTERPRETACION DE LA REGLA": RETURN 
REM — AHORA VA A LA BASE DE DATOS 
FOR T=1 TO 200 

RS(TI A" 

NEXT T 

R1=0:R2=99 

K=0 

K=k+1 

IF 28(K)="" THEN 2310 

IF R1=99 OR R2=200 THEN PRINT " MEM 
ORIA INSUFICIENTE":GOTO 2310 
LB=LEN(B$) 

IF RIGHTS(Z$(K),LB)=BS$ THEN R1=R1+1 
¿RS(R1)=LEFTS(28(K) ,LEN(Z$(K))-LB) 
LC=LEN(CS$) 

IF RIGHTS(Z$(K),LC)=C$ THEN R2=R2+1 
¿RS(R2)=LEFTS(Z6(K) ,LEN(Z$(K))-LC) 
IF K<1000 THEN 2230 

IF R$(100)="" THEN PRINT "EL SEGUND 
O CONCEPTO NO ESTA EN LA BASE DE D 
ATOS" ¿RETURN 

REM AHORA CODIFICA LAS REGLAS 
R1=0:R2=99 

R2=R2+1 

R1=R1+1 

IF RS(R1)>" " AND R$(R2)>" 
S(K)2RS(R1)+AS+RSIRDI +" " 
PRINT "> ";32$(K) 


INTERPRETACION D 


THEN CNT=CNT+1 


2090 
INTERPRETACION D 


" THEN Z 


229 


2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
es10 


es20 
2530 
2540 
2550 


2560 
2570 


2580 
2590 
2600 
2610 


2620 
2630 


2640 
2650 
2660 
2670 


2680 
2690 


2700 
e710 
2720 
2730 
2740 


2750 
2760 
2770 


2780 
2790 


2800 
eg10 


2820 
2830 
2840 


1 REM 
2 REM 
3 REM 
4 REM 
S REM 


K=K+1 

IF R$(R2+1)<>"" THEN 2340 

IF RS(R1+1)<>"' THEN 2350 
RETURN 

REM 0404 44 00 44 24 20 20 30 30 26 30 DE ME DE DE 00 dd DO 36 0 46 46 26d 
REM “OPERACIONES ARITMETICAS 
LJ=LEN(J$) 

IF ARITFLAG<3 THEN GOSUB 2490 
IF ARITFLAG=3 THEN GOSUB 2890 
IF ARITFLAG=4 THEN GOSUB 3080 
RETURN 

REM ¿oe SUMA — VECES 343040141636 
JS=MIDS(JS,5,LJ-5) 


IF LEFTS(J$,2)="S(" THEN J$=MIDS(J$ 
,3) ELSE J$=MIDS(J$,2) 

LJ=LEN(J$) 

K=0 

K=k+1 


IF MIDS(J$,K,1)=" " THEN AS=LEFTS(J 
$,K-1):J$8=MIDS(J$,K+1):GOTO 2580 

IF K<LJ THEN 2540 

PRINT TAB(12);" ERROR ARITMETICO":R 
ETURN 

LI=LEN(J$) 

K=O 

K=K+1 

IF MIDS(J$,K,1)=" " THEN BS=LEFTS(J 
$,K-1):J$8=MID$(J$,K+1):GOTO 2640 

IF K<LJ THEN 2600 


PRINT TAB(12);" ERROR ARITMETICO":R 
ETURN 

LJ=LEN(JS$) 

K=0 

K=k+1 


IF MIDS(J$,K,1)=")" THEN CS$=LEFTS(J 
$,K-1):GOTO 2700 

IF K<LJ THEN 2660 

PRINT TAB(S);" ERROR (DEMASIADAS VA 
RIABLES)" RETURN 

AN=0 :BN=0:CN=0 

IF ASC(AS)>58 THEN AN=1 

IF ASC(B$)>58 THEN BN=2 

IF ASC(C$)>58 THEN CN=4 
GUIA=AN+BN+CN: IF GUIA=3 OR GUIA=5 
OR GUIA=ó6 THEN 2690 

IF ARITFLAG=2 THEN 2820:REM VECES 
IF GUIA>O THEN 2790 

IF VAL(AS)+VAL(B$)=VAL(C$) THEN PRI 
NT " SI":*RETURN 

PRINT ” NO":RETURN > 

IF GUIA=1 THEN PRINT VAL(C$)-VAL(B$ 
):GOSUB 40:RETURN 

IF GUIA=2 THEN PRINT VAL(C$)-VAL(AS 
):GOSUB 40:RETURN 


PRINT VAL(A$S)+VAL(B$):GOSUB 40:RETU 
RN 
REM ... VECES .. 


IF GUIA>O THEN 2860 
IF VAL(AS)VAL(BS)=VAL(C$) THEN PRI 
NT " SI"3RETURN 


FUZZY 


de M0 0 DO DO DO DO 00 10 00 00 0d 


* * 
* FUZZY RITA * 
* * 
$0 10 0 M0 0 DD 
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2850 
2860 


2870 
2880 


2890 
2900 
2910 


2920 
2930 
2940 
2950 
2960 
2970 
2980 


2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 


3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 


3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 


3330 
3340 
3350 
3360 


PRINT " NO":RETURN 

IF GUIA=1 THEN PRINT VAL(C$)/VAL(B$ 
):GOSUB 40:RETURN 

IF GUIA=2 THEN PRINT VAL(CS$)/VAL(AS 
):GOSUB 40:RETURN 

PRINT VAL(AS)*VAL(BS$):GOSUB 40:RETU 
RN 

REM 3044040 14 304% 
NF=0 

IF ASC(J$)<58 THEN NF=1: 
SON NUMEROS 

CNT=0 

K=O 

K=K+1 

IF MIDS(J$,K,1)=" 
IF CNT=2 THEN 3000 
IF K<LEN(J$) THEN 2940 

PRINT TAB(10);"ERROR EN LA COMPARAC 
ION" 

RETURN 

BSs=MIDS(J$,K+1) 

AS=LEFTS(JS$,K-6) 

IF NF=1 THEN 3050 

IF AS<BS THEN PRINT " SI":RETURN 
PRINT " NO"*RETURN 

REM + NUMEROS + 

IF VAL(AS)<VAL(BS) THEN PRINT " SI" 
¿RETURN 


MENOR IMA 


REM 


" THEN CNT=CNT+1 


PRINT " NO":*RETURN 

REM *e ENT ( PARTE ENTERA )  *. 
IF RIGHTS(J$,2)="X " THEN 3190 
K=0 

K=K+1 


IF MIDS(J$,K,1)=" " THEN 3160 
IF K<LEN(J$) THEN 3110 

PRINT TAB(20);"ERROR ARITMETICO" 
RETURN 

AVAL (LEFTS(J$,K-1)) 


IF INT(A)=A THEN PRINT " SI":RETURN 
PRINT " NO"*RETURN 

K=0 

K=k+1 

IF MIDS(J$,K,1)=" " THEN 3240 

IF K<LEN(JS8) THEN 3200 

PRINT TAB(20) ¿"ERROR ARITMETICO": 


RETURN 
PRINT INT(VAL(LEFTS(J$,K-1))) 


RETURN 

REM 40004430 40 24 36 10 30 20 00 30 20 00 00 00 00 O 0 0 0 0 
REM INICIALIZACION 

CcLSs 

DIM 2$(1000),R$(200) 

RETURN 

cLs 

LOCATE 3,10:PRINT "QUIERES TERMINAR 
7 (S,N]" 

AS=INKEYS 

IF AS="S" THEN CLS:END 

IF AsS="N" THEN CLS:GOTO 70 

GOTO 3330 


RITA 


10 REM 
20 GOSUB 1420:REM INICIALIZACION 
30 GOSUB 1190:REM OPCIONES DE SALIDA 


40 GOSUB 1280:REM 


PREGUNTAS 
DISCRIMINATORIAS 


so 
60 


70 
80 
TO 
90 


100 


110 
120 
130 
140 
150 
160 
170 
180 


190 
200 
210 
e20 
230 
240 


250 


260 
270 
280 
290 
300 
310 


320 
330 


340 
350 


360 
370 
380 
390 
400 
410 


420 
430 
440 


450 
460 
470 
480 
490 
500 
s10 
520 
530 
540 
550 
560 
570 
580 


590 
600 


GOSUB 140:REM PREGUNTAS AL USUARIO 
GOSUB S0O0: REM TOMA DE DECISION Y 
ACTUALIZAION DE CONOCIMIENTOS 
PRINT"PULSA [ ENTER J] PARA CONTINUAR" 
IF X$<>"" THEN INPUT I$:GOSUB 1580:GO 
so 
PRINT" EL ADIESTRAMIENTO 5," 
PRINT"O CUALQUIER TECLA SEGUIDA DE 
C( ENTER J3 PARA UTILIZAR A RITA." 
INPUT X$:GOSUB 1580:GOTO 50 
END 
REM 063424 06.26 26 24 36 16 10 36 DO DEDO DE DE DE 0 EM 
REM PREGUNTAS AL USUARIO 
WINDOW $*1,1,40,1,TT+3 
WINDOW $0,1,40,TT+4,25 
CLS $O:CLS vi 
PRINT 41,"ESTOS SON LOS TEMAS ENTRE 
LOS QUE PUEDO DISTIGUIR :" 
PRINT 41 
FOR J=1 TO TT 
PRINT $1," - 
NEXT J 
GOSUB 1540 
IF X$="" THEN PRINT"PIENSA UNO Y DES 
PUES PULSA [ ENTER 1." 
IF X$<>"" THEN PRINT" ESTOY LISTA PA 
RA DEDUCIR CUAL TIENES EN MENTE." 
IF X$="" THEN INPUT Js 
ADD=0.5 
FOR J=1 TO DQ 
ADD=ADD+ADD 
GOSUB 1560 
IF X$<>"" AND TT>2 THEN 410:REM 
REVISION POR SI LA PREGUNTA 
SE PUEDE SALTAR 
PRINT" PULSA UNO DE ESTOS NUMEROS :" 
PRINT" 1 (CIERTO) O (FALSO) st 
TERMINAR 3" 
PRINT3PRINT ES(J); 
INPUT H$:GOSUB 1610: IF H$="$" THEN 
PRINT:PRINT" HASTA PRONTO": PRINT: 
END 
C(J)=VAL(H$) 
C(J)=ADD*C(J) 
NEXT J 
RETURN 
REM 0604 04 06 04 26 20 26 06 26 10 06 30 06 dd 20 6 06 DH Md 
REM DECIDE SI LA PREGUNTA 
SE PUEDE SALTAR 
SALTO=1 
FOR W=1 TO TT 
IF ABS(B(W,J)-B(1,J3))>0.7 THEN SALTO 
=0 
NEXT W 
IF SALTO=0 THEN 320 
C(J)=B(W,J) 
GOTO 380 
HI ii 
REM TOMA DE DECISION 
FOR J=1 TO TT 
D(J)=0:E(J)=0:F(J)=0 
NEXT J 
ADD=0.5 
FOR J=1 TO TT 
ADD=ADD+ADD 
FOR X=1 TO DQ 
REM JUEGA CON LOS VALORES DE LAS 
TRES LINEAS SIGUIENTES PARA 
LOGRAR UNA MAYOR EFICACIA 
IF C(X)=B(J,X) THEN D(J)=D(J)+1 
IF ABS(C(X)-B(J,X))<0.6* ADD THEN E(J 
IRE(J)+0.4 


“¡AS(J) 


610 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


750 
760 


770 
780 


790 
8oo 
810 
e20 
830 
840 
eso 
8650 
870 


eso 
890 
900 
910 
920 
930 
940 
950 
960 
970 


980 
990 
1000 


1010 
1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


IF ABS(C(X)-B(J,X))<1.2*ADD THEN F(J 
I=F(J)+0.3 

NEXT xXx 

NEXT J 

Al=1:42=1:A3=1 

Fiz=1:F2=1:F3=1 

FOR J=1 TO TT 

IF D(J)>F1 THEN Fi=D(J):A1=J 

IF D(J)>F2 THEN F2=E(J):A2=J 

IF D(J)>F3 THEN F3=F(J):A3=J3 

NEXT J 

REM ** PRESENTA EL RESULTADO ** 
PRINT 

CFLG=0 

PRINT"EL RESULTADO MAS PROBABLE ES " 
¡As(Al1>) 

IF A2<>A1 THEN PRINT"EL SIGUIENTE 
MAS PROBABLE ES ";As$S(A2):CFLG=1 

IF A3<>A2 THEN PRINT"EL SIGUIENTE 
MAS PROBABLE ES ";A$S(A3):CFLG=2 
PRINT 

PRINT"ES CORRECTO EL RESULTADO MAS 
PROBABLE ?";SPC(10);5" So N "; 
INPUT Fs 


IF F$<>"S" AND F$<>"N" THEN 790 

IF F$="S" THEN PER=SO ELSE PER=480 
IF F$="S" AND X$<>"" THEN RETURN 
IF F$="S" THEN 1010 


IF TT=2 AND Al=1 THEN Al=2:GOTO 1010 
IF TT=2 THEN A1l=1:GOTO 1010 

IF CFLG=0 THEN 920 

PRINT" ES CORRECTA MI SEGUNDA ELECCI 
ON ? "¿SPC(15);" So NÑN "; 

INPUT Fs 

IF F$="N" THEN 920 

IF CFLG=1 THEN A1=A2:GOTO 1010 


IF CFLG=2 THEN A1=A3:GOTO 1010 
GOSUB 1560 

FOR J=1 TO TT 

PRINT Jj"- ";As$(J) 

NEXT J 

PRINT 

PRINT" CUAL ES LA SOLUCION CORRECTA 
INPUT A1:GOSUB 1610 


1F A1<1 OR A1>TT THEN 980 

REM ** EDUCANDO A RITA *.* 

( ACTUALIZACION DE CONOCIMIENTOS ) 
FOR J=1 TO DQ 

IF B(A1,J)<>0 THEN B(A1,J)=(C(J)+ 
S.5*B(A1,J))/6 

IF B(A1,J)=0 THEN B(A1»>,J)=C(J) 
B(A1,J)=INT(10B(A1,J))/10 

NEXT J 

PRINT 

IF US="" THEN RETURN 

FOR J=1 TO TT 

PRINT:2GOSUB 1560 

PRINT AS(J) 

PRINT 

FOR K=1 TO DQ 

PRINT ES(K);B(J»,K) 

NEXT K 

NEXT J 

PRINT 

RETURN 

A iii 

REM OPCIONES DE SALIDA 

TT=0 

TT=TT+1 

GOSUB 1560 

PRINT"INTRODUCE LA RESPUESTA NUMERO 
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1240 
1250 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 


1400 
1410 
1420 
1430 
1440 


Las LA PULSA [ ENTER J PARA TERMI 

NAR" 

INPUT AS(TT):PRINT CHRS(7) 

IF AS(TT)="" OR TT=SO THEN TT=TT-1: 

RETURN 

GOTO 1210 

A ii 

REM PREGUNTAS DISCRIMINATORIAS 
WINDOW 41,1,40,1,TT:CLS $1 

WINDOW $0,1,40,TT+1,25:CLS $O 

FOR J=1 TO TT 

PRINT $1, AS(J) 

NEXT J 

DQ=0 
DO=DQ0+1 
GOSUB 1560 
PRINT" 

MERO "3DQ;" 
HAY MAS." 
INPUT ES(DQ):PRINT CHR$(7) 

IF ES(DQ)="" OR DQ=50 THEN DOQ=DO-1: 
RETURN 

GOTO 1350 

A ci 

REM — INICIALIZACION 

CcLus 

REM REDUCE LAS MATRICES DE LA 
SIGUIENTE LINEA DE ACUERDO A 


INTRODUCE LA PREGUNTA NU 
PULSA [ ENTER 3 SI NO 
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1450 


1460 
1470 
1480 
1490 


1500 
1510 
1520 


1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


TUS NECESIDADES 
DIM A$(50),B(50,50),C(50),D(50), 
E(50),E$(50),F (50) 
X$="":MODE 1:BORDER 11 
PEN N$0,3:PEN 41,03 INK 3,21: INK 0,3 
PAPER 40,0: PAPER 41,3:CLS $41:CLS 
LOCATE 1,5:PRINT" PULSA UNA TECLA Y 
DESPUES [ ENTER J ," 


PRINT:+¿PRINT" SI QUIERES VER LOS CON 
OCIMIENTOS"” 
PRINT:PRINT" ADQUIRIDOS, DESPUES DE 


CADA RONDA 3 " 
PRINT:¿PRINT"EN CASO CONTRARIO PULSA 
SOLO ( ENTER 2 ." 

PRINT+ INPUT US:GOSUB 1580 
CcLs 

RETURN 

PRINT STRINGS(39,"-") 
RETURN 

ENV 2,1,49,1,49,-1»1 
SOUND 2,60,50,0,2 

RETURN 

SOUND 2,100,50,0 

RETURN 

SOUND 1,478,15,10 

SOUND 2,239,15,10 

SOUND 4,119,15,10 

RETURN r,w»» 


Programas 


para Commodore 64 


La versión del programa SSLISP para Commodore 64 utiliza las siguientes 








órdenes: 

MSX COMMODORE MSX COMMODORE MSX COMMODORE 
CAR CAR LISTA LIST DIVIDE QUOTIENT 
CDR CDR DEFINE DEFINE RECIP RECIP 

CONS CONS INC1 ADDI1 RESTO REMAINDER 
ATOM ATOM DECI SUBI MULT TIMES 
IGUAL EQ CERO? ZEROP MAYOR GREATERP 
NULO NULL RESTA DIFFERENCE MENOR LESSP 
MIEMBRO MEMBER EXP EXPT NEGATIVO? MINUSP 
MIGUAL MEMQ MAX MAX NUMERO?  NUMBERP 
JUNTA APPEND MIN MIN UNO? ONEP 
INVIERTE REVERSE SUMA PLUS 

MISMO EQUAL MENOS MINUS 
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SSLISP 


1 REMO mae IR 


2 REM + * 
3 REM * S.S. LISF * 
4 REM * * 
SS PREM mod E A MH 
10 REM 


20 GOTO 3450 
3O REM 024042066 06 26d 0 AH 


40 AS$=MID$ (AS, E): AS=LEFTS ($, L.EN(A$)-1) 


50 RETURN 

60 REM ve d6 de dd DH HEM 

70 PRINT "" 

80 NN=0 

90 A$=""3 INFUT"s “5Aas 

100 IF A$="" THEN END:REM FARA FINALIZAR 


BASTA CON FULSAR <RETURN> 


110 REM 646060606 dd A 6 6 6 MAI 
120 FRINT ""53FOR J=1 TO 12 

130 X(J)50:1Y(J)=0:2Z (J)=0 

140 NEXT J 

150 REM demo 16 6 06 HIM 

140 R=0:5=01T=0: CFIRST=0: CSECND=0: EDGE=0 
170 FOR J=1 TO LEN(A$) 

190 B$=MID$(A$,J,1) 

190 IF B$="(" THEN S=S+1:Z (S)=J: 1F T=0 T 
HEN CFIRST=J 

200 IF B$=")" THEN T=T+1:Y(T)=J: IF CSECN 
D<>0 AND EDGE=0 THEN EDGE=J-1 

210 IF T=1 AND E$=")" THEN CSECND:=J 

220 IF B$=" " THEN R=R+1:X(R):J 

230 NEXT J 

240 IF S=T THEN 300:REM () EQUILIBRADO 
250 IF S<T THEN PRINT:PRINT " -> OMISION 
DE ("¿»PRINT 

260 IF S>T THEN PRINT¿3FRINT " -3 OMISION 
DE )"“»FRINT 

270 INPUT "+ ";B$ 

280 A$=A$+E$ 

290 GOTO 120 

300 IF NWDS=0 OR NN=1 THEN 370 

310 MS=LEFTS$(A$, X (1)-1) 

320 FOR J=1 TO NWDS 

330 IF M$=N$(J) THEN A$=0$(J)+MID6(A4,LE 

N(N$ (J))+1) 

340 NEXT J 

350 NN=1 

360 GOTO 120 

370 FLAG=0:B$="FALSO" 

380 IF LEFTS(A$,5)="CAR (" THEN FLAG=1 
390 IF LEFTS(A$,5)="CDR (" THEN FLAG=2 
400 IF LEFTS(A$,6)="CONS (" THEN FLAG=3 
410 IF LEFTS(A$,6)="ATOM (" THEN FLAG=4 
420 IF LEFT$(A$,4)="EQ (" THEN FLAG=5 
430 IF LEFT$(A$,6)="NULL (" THEN FLAG=6 

440 IF LEFTS$(A$,8)="MEMBER (" THEN FLAG= 
7 

450 IF LEFTS$(A$,6)="MEMO (" THEN FLAG=8 
460 IF LEFTS(A$,8)="APFEND (" THEN FLAG= 

-) 

470 IF LEFTS$(A$,9)="REVERSE (" THEN FLAG 
=10 

480 IF LEFTS$(A$,7)="EQUAL (" THEN FLAG=1 
1 

490 IF LEFTS$(A$,46)="LIST (" THEN FLAG=12 
500 IF LEFT$(A$,8)="DEFINE (" THEN FLAG= 
13 

si0 IF LEFTS(A$,6)="ADD1 (" THEN FLAG=14 
520 IF LEFT$(A46,6)="SUB1 (" THEN FLAG=15 
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530 IF LEFT$(A$,7)="ZEROF (" THEN FLAG::1 
6 

540 IF LEFTS(A$,12)="DIFFERENCE (" THEN 
FLAG=17 

5350 IF LEFTS$(A$,6)="EXFT (" THEN FLAG=18 
560 IF LEFTS(A$,3)="MAX (" THEN FLAG=19 
570 IF LEFTS(A$,5)="MIN (" THEN FLAG=20 
580 IF LEFTS$(A$,6)="FLUS (" THEN FLAG=21 
590 IF LEFTS$(A$,7)="MINUS (" THEN FLAG=2 


2 

600 IF LEFT$(A$,10)="QUOTIENT (" THEN FL 
AG=23 

610 IF LEFTS(A$,7)="RECIP (" THEN FLAG=2 
4 


620 IF LEFTS$(A$,11)="REMAINDER (" THEN F 
LAG=25 

630 IF LEFTS(A$,7)="TIMES (" THEN FLAG=2 
6 


640 IF LEFTS(A$,10)="GREATERF (" THEN FL 
AG=27 


650 IF LEFTS(A$,7)="LESSF (" THEN FLAG=2 
3 

660 IF LEFTS(A$,8)="MINUSF (" THEN FLAG= 
29 

670 IF LEFTS(A$,9)="NUMBERP (* THEN FLAG 
=30 


480 IF LEFTS(AS,6)="ONER (" THEN FLAG=71 
690 1F FLAG>13 THEN 720 

700 ON FLAG GOSUB 840,890,970,1110,1200, 
1330, 1380, 1510,1700,1760,2000,21730, 3300 
710 GOTO 760 

720 1F FLAG>24 THEN 750 

730 ON (FLAG-13) GOSUB 2180,2230,2280, 23 
50, 2540, 2600, 2790, 2820, 2870, 2920, 2960 
740 GOTO 760 

750 ON (FLAG-24) GOSUB 3070,2070,73120,71 
60,3200,3250, 2280 

760 IF FLAG<>0 THEN GOSUB 780 

770 GOTO 70 

780 REM ***CONTESTACION»%% 





790 GOSUB 4000: PRINT1PRINT" SU VALOR E 
S..."¿PRINT 

800 IF R$<>"()" THEN PRINT" "¡Eg 

B10 IF B$="()" THEN PRINT" FALSo" 


820 RETURN 

830 REM 06 de dl q 06d 6 dl 0 EM 

840 REM xa CARA os 

830 IF S=2 THEN E$=MID$ (45,7 (2)+1,X(2)-Z 
(23) 

860 IF S>2 THEN E$=MIDS(A$, CFIRST,COSECND 
=CFIRST+1) 

870 RETURN 

880 REM dee ed 06 46 0 6 M6 A MEE 

890 REM xx ODF 1” 

900 GOSUB 840 

910 LB=LEN(B$)+7 

920 B$="("+MID$(A$,LB,EDGE-1) 

930 IF RIGHTS (B$,2)="))" THEN Eb=LEFTS (B 
$,LEN(B$)-1) 

940 IF MIDS(B$,2,1)=" " THEN B$="("4+MIDS 
(B$,3) 

930 RETURN 

960 REM dese de dl 06 30 dd 26 06 DE HEM 

970 REM CONS e + 

980 B$=MIDS(A$,7,LEN(A$)-1) 

990 J=0 

1000 IF LEFTS(B$,1)="(" THEN J=1 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


J=J+1 

IF MID$(B$,J,1)="(" THEN 1050 
IF K<LEN(B%) THEN 1010 
B$=" > ERROR EN CONS 
LB=LEN(B$)-1 

Bs=" ("+LEFTS(B$,J-1)+MID$(R$,J+1) 
BS=LEFTS$(B$,LB) 

IF RIGHT$(B$,2)=" >)" THEN B$=LEFTS( 


<"* RETURN 


B$,LEN(B$)-2)+")" 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
Sn 
11640 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 


RETURN 

REM 06060036 2606 06 6 6 A 6 DA 

REM ATOM 0 

AS=MIDS (A$,7,LEN(A$)-1) 
J=01B$="FALSO" 

J=J+1 

IF MID$(A$,J,1)=" " OR MID$(A$,J,1) 
THEN RETURN 

IF J<LEN(AS) THEN 1140 

B$="y" 

RETURN 

REM dde dede dd dé dd M6 Dd DO EE MED 

REM EQ ne 

E=5:GOSUBE 40 

J=0 

J=J+1 

IF MID$(A$,J,1)=")" THEN RETURN 
IF MIDS(A$,J,1)=" " THEN 1280 
IF J<LEN(AS$) THEN 1230 

RETURN 

CS=LEFTS (AS, J-1) 
AS=MIDS(A$, J+1) 

IF C$=A$ THEN B$="Y" 

RETURN 

REM 4626 06 14 dl dd de dd ME Ed dd AM 

REM see NULL 41% 

IF Aé$="NULL ()" THEN E$=" *UTILIZAC 


ION ILEGAL: NULL REQUIERE ARGUMENTO +" 


1350 
Y 

1360 
1370 
1380 
1390 
1400 
1410 
1420 
ma 
1430 
1440 
1430 
1460 
1470 


XX$="NULL (())"2 1F A$=XX$ THEN Bs$=" 


RETURN 

REM 40602 06d 4 4 2 dd 6 6 6 DDD ME 

REM eNMEMBER» ds 

C$=MIDS$(AS$, 9) 

J=1 

J=J+1 

IF MID$(C$,J,1)=")>" OR MID$(C$,J,1) 
THEN DS=LEFTS (C$,J):G0TO1450 

IF J<LEN(C$) THEN 1410 

RETURN 

J=LEN(D$) 

J=J+1 

IF MID4(C8,J,LEN(D$))=D4 THEN Cé$=LE 


E MA 


480 
1490 
1500 
1510 
1520 
1530 
1540 
135530 
Bo 
1560 
1370 
1580 
1590 
1600 
1610 
1620 
16430 


J¿LEN(CS) THEN 1460 
RETURN 
REM 606 26 dl 26 6 24 00 26 0H 6 4 
REM seeMEMO) 04 
C$=MID$(A$,7) 
J=0 
J=J+1 
XX$:=" " 1F MID$(C$,J,1)=XX$ THEN 15 


IF J<LEN(AS$) THEN 1540 

RETURN 

DS=LEFTS$(C$, J) 

C$=MIDS (C$,J+2) 
CS=LEFTS (CS, LEN(CS)-D 40" 

J=0 

J=J+1 

IF MIDS(C$,J,LEN(D$))=D SH THEN Eg="( 


"+MID$(C$,J):GOTO 1660 


1640 


IF J<LEN(C$) THEN 1620 


1450 RETURN 

1560 B$=LEFTS (B$,LEN(B$)-1)+*)" 

1670 IF RIGHTS (E$,3)=")))" THEN Es$=LEFTS 
(BS, LEN(B$)-1):GOTO 1670 

1480 RETURN 

1690 REM 336 de dd 6d 6 DE DD DIA 

1700 REM ***APPEND*%* 

1710 B$=MID$(A$,9) 

1720 BS$=LEFTS(B$,Y(1)-9)+" "+MIDS(E$,Z (7 
)-7) 

1730 ES=LEFTS(BS$,LEN(B$)-1) 

1740 RETURN 

1750 REM dede dd de de dd HH DD DH A 

1760 REM ***REVERSE + 

1770 Bs="" 

1780 A$=MID$(A$,11):A$=LEFTS(A$, LEN(AS) -- 
2) 


1790 CT=1 

1800 J=0 

1810 J=J+1:1F J>LEN(A$) THEN 1920 

1820 XX$=MIDS$(A$,J,1):t 1F XX$:=" " THEN GO 
TO1850 

1830 IF XX$="(" THEN 1860 


1940 GOTO 1810 

18%50 CT=CT+1:G$(CT)=LEFTS (A$,J-1):Ab6=MID 
$(4$,J+1):GOTO1800 

1850 J=J+1: 1F MID$(A$,J,2)="))" THEN 198 
19] 

1870 IF MID$(A$,J3,1)=")" THEN 1910 

1880 IF J=LEN(A$) THEN 1900 

1890 GOTO 1840 

1900 CT=CT+11G$(CT)=A$+")"2 GOTO 1930 
1910 CT=CT+11G$(CT)=LEFT$(A$,3): AG6=MIDG ( 
AS, J+1):1G0TO1800 

1920 CT=CT+1:1G$(CT)=A$ 

1930 FOR M=CT TO 1 STEF -1 

1940 Bs=B$+G6(M): 1F M>1 THEN ES=Bg+" " 
1950 NEXT M 

1960 Bs="("+B9+")" 

1970 RETURN 

1980 CT=CT+1:G$(CT)=LEFTS (A$,J+1):A$=MID 
$(4$,J+2):GOTO 1800 

1990 REM 0646 dd de 06 dé dd M0 6 Md dE DE DA 

2000 REM ***EQUAL 41% 

2010 E=8:G0SUB 40 

2020 M=ASC(A$): 1F M>47 AND M¿58 THEN 237 
0 

2030 J=0 

2040 J=J+1 

2050 IF MID$(A$,J,2)=") 
o 1280 

2060 IF MID$(A$,J,3)=")))" THEN 2100 
2070 IF MID$(A$,3,2)="))" THEN 2110 

2080 IF J<LEN(A$) THEN 2040 

2090 RETURN 

2100 CS=LEFTS(A$, J+2):A$=MIDS$(A$, J+4) :GO 
TO1300 

2110 CS=LEFTS(A$,J+1)1AS$=MID$(A$, 143) 260 
TO1300 

2120 REM 342614 36 dd 06 dE M0 0 DE dE 16 06 6 HE AE 6 dd 

2130 REM ***L IST 

2140 Ezx7:GOSUB 40 

2150 B$="("+A$+")" 

2160 RETURN 

2170 REM 643646 26 06 16 de dE dE dE dE 6 6 066 MA 

2180 REM ***ADD1xx% 

2190 E=7:1GOSUB 40 

2200 B$=5STR$ (VAL (A$) +1) 

2210 RETURN 

2220 REM des dede 26 6 26 616 006 6 06 26 DEM 

22730 REM eee SUB 16e 

2240 E=71GOSUB 40 


" THEN J=J+1: GOT 
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2250 B$=STR$ (VAL (A$)-1) 

2260 RETURN 

2270 REM deseo 24 46 20 d6 dd 2 A 6 0d dd DO EA 
2280 REM *x*ZEROP ex 

2290 IF FLAG=14 THEN E=8 

2300 IF FLAG=31 THEN E=7 

2310 GOSUB 40 

2320 IF (A$="0" AND FLAG=16) OR (As="1" 

AND FLAG=31) THEN Bs$="V" 

2330 RETURN 

2390 REM Medea dede dd DIEM DE HI 
2350 REM ***DOS ARGUMENTOS: 4* 

2360 E=13:G0OSUB 40 

2370 J=0 

2380 J=J+1 

2390 IF MID$(A$,J,1)=" " THEN 2420 
2400 IF J<LEN(AS) THEN 2380 

2410 B$=" * ERROR + NO SE ADMITE UN UNIC 
O AR- GUMENTO *":* RETURN 

2420 P=VAL(LEFTS(A$,J-1)) 

2430 Q=VAL (MIDS (A$,J+1)) 

2440 IF FLAG=17 THEN B$=STR$(F-(0) : RETURN 
2450 IF FLAG=23 OR FLAG=23 THEN E=F/0 

2460 IF FLAG=2S THEN B=INT (.S5+0% (E-INT(B 
))*1000)/1000 

2470 IF FLAG=18 THEN B=P"Q 

2480 IF FLAG=11 AND P=Q THEN Es$="Y" 
2490 IF FLAG=27 AND P>Q THEN Es$:="Y" 
2500 IF FLAG=28 AND P<Q THEN Bé:"U" 
2510 IF FLAG=32 THEN B=P-Q 

2520 IF FLAR=11 OR FLAG>26 THEN RETURN 
2530 B$=STRA» (B) 

2540 RETURN 

2550 REM de 4644 de 26 06 de dl DH DE dd DO EH 

2560 REM EXP Te 

2570 E=71GOSUB 40 

2580 GOTO 2370 

2590 REM dede de 06 16 dd DD DAD DO DIME ME 

2600 REM s*x*MAX (MIN PLUS TIMES) *x* 
2610 FS=LEFTS(A$,3)1 A6=MID$(A$, 6) 
2620 CT=0: FLAG=0 

2630 IF F$="TIMES" THEN CT=1 

2640 J=0 

263590 J=J+1 

2660 IF MIDS(A$,J,1)=" " THEN 2690 
2670 IF J<LEN(AS$) THEN 2650 

2680 IF J=LEN(A$) THEN FLAG=1 

2690 P=VAL(LEFTS(A$,J-1)): 1F FLAG=0 THEN 
AS=MIDS$ (A$,J+1) 

2700 IF FS<>"FLUS"” AND CT=0 THEN CT=F 
2710 IF Fé$="MAX" AND P>CT THEN CT=F 
2720 IF F$="MIN" AND P<CT THEN CT=F 
2730 IF Fé$="PLUS" THEN CT=CT+P 

2740 IF F$="TIMES" THEN CT=CTxP 

2730 IF FLAG=0 THEN 2640 

274540 Bs=STRS (CT) 

2770 RETURN 

2780 REM dede a al 06 06 26 dl HH DA 
2790 REM MIN ss 

2800 GOTO 2410 

2810 REM 636 de d6 16 16 06 36 26d 26 M6 II HEM 

2820 REM +**FLUSó 

2830 Fs$="PLUS" 

2840 A$=MIDS$(A$,7) 

2850 GOTO 2620 

2860 REM dede 04d 06 6 6 6 62 0 HH HDMI 
2070 REM MINUS 4x1. 

2880 E=81GOSUB 40 

2890 B$=STR$ (-VAL (A$)) 

2900 RETURN 

2910 REM sedes de dd 6 a 0 ED ME 
2920 REM x**QUITIENTA 
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2930 E=11:GOSUB 40 

2940 GOTO 2370 

2950 REM dede dede de 26 de de 0 60 0606 DO DM 
2960 REM ***RECTP e 

2970 E=8:GOSUB 40 

2980 IF B$="0" THEN B$=" ERROR : DIVISIO 
N POR CERO": RETURN 

2990 B=1/(VAL(AS)) 

3000 B$=STR$ (B) 

3010 RETURN 

3020 REM qe dede 066 06 06 06 00 06 0 DE 6 6 DIE 
3030 REM ***REMAINDER +41 

3040 Ex=121GOSUB 40 

3050 GOTO 2370 

3060 REM 636 362616 26 26 dd 26 6 DD DA 
3070 REM ***TIMESA0* 

3080 Fs$="TIMES" 

3090 A$=MID$(A$,8) 

3100 GOTO 2620 

3110 REM dede de 26 de de dl dl 6 dd dd 06 dd DA 
3120 REM **GREATERF +» 1 

3130 E=11:GOSUB 40 

3140 GOTO 2370 

3150 REM 464646 d4 06 96 04d 6 6d 0 DMI IE A 
3160 REM eee LESSP 10 * 

3170 E=8:GOSUB 40 

3180 GOTO 2370 

3190 REM 006 06 06 6 06 6 DDD 
3200 REM ***MINUSP +4 

3210 E=9:GOSUB 40 

3220 IF VAL(AS$)<0 THEN B$="Y" 
3230 RETURN 

3240 REM dede 06 dt de 26 6 06 dl 20 M0 0d 6 DO 6 Md 
3250 REM ***NUMEERP 44% 

3260 A$=MID$(A$, 10) 

3270 IF ASC(A$)>44 AND ASC(A$)<58 THEN B 
sony” 

3280 RETURN 

3290 REM de 46d de dd dd HH DH 
3300 REM ***DEF INE» * 

3310 A$=MID$(AS$, 7) 

3320 F$=LEFTS (AS, X (2)-9) 

3330 G$=MIDS$(A$,X(4)-6) 

3340 J=0 

3350 J=J+1 

3360 IF MID$(G$,J,1)=" " THEN 3390 
3370 IF J<LEN(G$) THEN 33350 

3380 B$=" DEFINE INCORRECTO": RETURN 
3390 G$=LEFTS (G$,J-1) 

3400 NWDS=NWDS+1 

3410 O$S(NWDS) =G$:N$ (NWDS) =F$ 
3420 B$=F$ 

3430 RETURN 

3450 REM sx INICIALIZACION»A 14 1% 
3460 PRINT ""*POKE 33280,0: FOKES3201,0 
3470 DIM G$ (20),0$(20),N$ (20) ,X(12),Y(12 
),2(12) 

3480 NWDS=0:REM * CONTADOR DE FUNCIONES 
DEFINIDAS FOR EL USUARIO + 

3490 GOTO 70 

4000 SID=54272 

4010 FOR Li=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT L1 

4040 POKE 61D+24,15 

4050 POKE SID+5,15 

4060 FOKE SID+6,255 

4070 POXE SID+4,17 

4080 FOR L1=48 TO 220 STEF 3 
4090 POKE SID+1,L1 

4100 NEXT Li 

4110 FOR L1i=28 TO 200 STEF 3 


4120 POKE SID+1,L1 4160 NEXT L1 

4130 NEXT Li 4170 POKE SID+1,0 
4140 FOR Li=200 TO 28 STEP -3 4180 RETURN 

4150 POKE SID+1,L1 


La versión del programa PROLOG-A para Commodore 64 utiliza las 
siguientes órdenes: 





MSX COMMODORE | MSX COMMODORE MSX COMMODORE 
METE ADD VECES TIMES CUAL WHICH 

SI IF MENOR LESS LISTA LIST 

Y AND ENT INT LISTA TODO LIST ALL 
SUMA SUM ES IS Z Y 


e.» 


:”, por ejemplo: 


.“ 


También es necesario utilizar en lugar de 


WHICH(X : SUM(1 1 2)) será WHICH(X . SUM(1 1 2) 


PROLOG-A 


LOREM 060 6 6 MA 230 IF MIDS$(J$,R,6)="TIMES(" THEN ARITHF 
2 REM * * LAG=2 
3 REM * PROLOG-A * 240 IF MIDS(J$,R,6)=" LESS " THEN ARITHE 
A REM * * LAG=3 
3 REM 0006 06 06 0 0 00600 2390 IF MIDS(J$,R,3)="INT" THEN ARITHFLAG 
10 REM =4 
20 REM *TODAS LAS INTRODUCCIONES EN MA- 2650 NEXT R 

YUSCULAS+ 270 1F LEFTS$(J$,3)="IS(" THEN J$=MIDS$ (J%$ 
30 GOTO 50 , 4 1FLAG=2 
40 FRINT" 280 IF LEFTS(J$,10)="WHICH(X . " THEN JI% 

NO HAY (MAS) RESPUESTAS": RETURN =MIDS (J$, 11): FLAG=3 
50 GOSUB 3270: REM INICIALIZACION 290 IF LEFTS(I$, 16)="WHICH((X Y) . X " T 
60 REM dd 34 dde dd 6 16 00 16 6 HD EE HEN J$=MIDS(J$, 17): FLAG=4 
70 GOSUB 4000: FRINT 300 IF FLAG=0 THEN PRINT "ERROR DE SINTA 
80 J$="""4 INPUT " 4."3J$ XI1S":*GOTO 70 
90 IF J$="" THEN END 310 LJ=LEN(J$) 
100 PRINT:¿FRINT ""32 1F J$="LIST ALL” THE 320 REM BIFURCACION A LAS SUBRUTINAS SUB 
N GOSUB 1840:GODTO 70 SIGUIENTES 
110 IF LEFTS(J$,5)="LIST “ THEN J$=MIDS ( 330 IF PLUSFLAG<>0 THEN GOSUB 19350: GOTO 
3$,5)+" "1GOSUB 970: G0TO70 70 1REM CODIFICACION DE REGLA QUE TIENE 
120 IF RIGHTS (I$,1)<>")" THEN FRINT"1."x ey» 
INPUT M$1J6=J$+M$1GOTO 120 340 IF RULEFLAG<>0 AND FLAG<>5 THEN GOSU 
130 LJ=LEN(JI$) B 11101 REM CODIFICACION DE REGLA 
140 IJS=LEFTS(J6,LJ-1)+" "3REM SUSTITU- 350 IF ARITHFLAG<>0 THEN GOSURK 2430: GOTO 
CION DEL ULTIMO ”)” FOR UN ESFACIO 701 REM ARITMETICA 

1350 LJ=sLEN(JS) 360 IF RIGHT$(J$,3)=" X " OR RIGHTS (J$,3 
160 FLAG=0 )J=" Y " THEN IJ$=LEFTS(J$,LJ-2)+" " 
170 IF LEFT$(J$,4)="ADD(" THEN J$=MIDS$ (.J 370 LJI=LEN(J$) 
$,5)1 FLAG=1 380 IF FLAG=1 THEN GOSUB 4403REM ADD 
180 RULEFLAG=01 PLUSFLAG=0: ARI THELAG=0 390 IF FLAG=2 THEN GOSUB 520: REM IS 
190 FOR R=1 TO LEN(J$) 400 IF FLAG=3 THEN GOSUB 610:REM WHICH 
200 IF MID$(J$,R,4)=" IF " THEN RULEFLAG 410 IF FLAG=4 THEN GOSUB 830: REM WHICH2 
=R1 FLAG=6 420 GOTO 70 
210 IF MIDS(J$,R,5)=" AND " THEN FLUSFLA 430 REM 344604 46 06 6 16 2 6 020 26 DE MEA HA 
G=R 440 REM *ADD*+* 
220 IF MIDS$S(J$,R,4)="SUM(" THEN ARITHELA 4530 K=0 
Gsl 460 K=k+1 
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470 IF Z$(K)="" THEN Z$(K)=J$: RETURN 
480 IF K<1000 THEN 460 

490 PRINT "MEMORIA LLENA" 

500 RETURN 

S10 REM 3636 d de d6 dE dd dE HE DEA E DE MEA MIA 
520 REM 4ISHA 

530 K=0 

540 Kz=K+1 

550 IF Z$(K)="" THEN 580 

560 IF 2$(K)=J6 THEN FRINT "SI"2GOTOS90 
570 IF K<1000 THEN 540 

580 PRINT "NO" 

590 RETURN 

630 REM 06204 dd 36 06 dE DE 6 0H IAEA 
610 REM XWHICH A e 

620 IF LEFTS$(J$,1)="X" THEN 710 

6730 JS=LEFTS$(J$,LJ-1) 

640 Kk=0 

650 K=kK+1 

660 IF Z$(K)="" THEN 690 

670 IF J$=LEFTS (2$(K),LEN(IJ$)) THEN PRIN 
T RIGHTS (26 (K), (LENCZ6(K))-LENC(T$))) 
680 IF K<1000 THEN 450 

490 GOSUB 40 

700 RETURN 

710 REM — * FREGUNTA INICIADA FOR *X” «* 
720 J$=MIDS(J$, 3,LEN(J%)-3) 

730 LIJ=LEN(J$) 

740 K=0 

7350 K=Kk+1 

760 IF 23$(K)="" THEN 800 

770 Q6=MIDS (Z$(K) ,LEN(Z$(K))-1.J,L.J) 
780 IF Q6=J8 THEN FRINT LEFT$(Z$(K),LENC 
Z$(K))-(LJ+2)) 

790 IF K<1000 THEN 750 

800 GOSUB 40 

810 RETURN 

20 REM 46 d6 o 6 0 26 6 6 06 dl Dd 0D 6 6 
8730 REM ANHICH2w 

840 J$S=LEFTS (J$,LJ-2) 

850 LJ=LEN(J4) 

840 K=0 

870 K=kK+1 

880 IF 238 (K)="" THEN 9460 

890 LFLAG=0 

900 FOR L=1i TO (LEN(Z$(K))-1.J) 

910 IF MIDS(Z$(K),L,LJ)=J4 THEN LFLAG=L 
920 NEXT L 

Q30 IF LFLAG=0 THEN 950 

940 PRINT LEFTS (Z$(K) ,LFLAG-2)3MID$(Z$ (K 
), (LELAG+LJ)) 

950 IF K<1000 THEN 870 

960 GOSUB 40 


970 RETURN 

980 REM dede 16 24 06 00 dd 26 Hd dd 6 LM EA 
9790 REM ALISTOA 

1000 Kx=0 

1010 K=kK+1 


1020 IF 2$(K)="" THENRETURN 

1030 LFLAG=0O 

1040 FOR L=1 TO (LEN(Z$(K))-LEN(J$)) 
1050 IF MIDS(Z$(K),L,LEN(J$))=J$ THEN LF 
LAG=1 

1060 NEXT L 

1070 IF LFLAG=1 THEN PRINT Z$(K) 

1080 IF K<1000 THEN 1010 

1090 RETURN 

1100 REM dd dd 06 36 dd 0 HI III 
1110 REM FORMACION DE REGLAS 

1120 R=RULEFLAG 

1130 ESSLEFTS (J$,R):F$=MID$ (J$,R+4) 

1140 IF LEFT$(E$,1)<>"X" THEN PRINT "ERR 
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OR EN LA REGLA":*GOTO 70 
1150 REM LA LINEA SIGUIENTE DETECTA EN- 
TRADAS TALES COMO”X COME Y SI X ES-UN Y” 
1160 IF RIGHTS(F$,2)="Y " THEN 1390 
1170 PRINTIPRINT TAB(10)3"COMPILACION DE 
LA REGLA": PRINT 

1180 FOR T=1 TO 100 

1190 RS(T)="" 

1200 NEXT T 

1210 ES=MIDS(ES,3)1F$=MIDS(F$, 3 

1220 K=01RRs0 

1230 K=k+1 

1240 IF Z$(K)="" THEN 1300 

1250 IF RIGHTS(Z6(K),LEN(F$))<>F% THEN 41 

370 

1260 RRÉ=RR+1 

1270 RS(RR)=LEFTS (78 (K), (LENC(Z$(K))-LENC 

F$)))+E8 

1280 PRINT "> "¿R$(RR) 

1290 GOTO 1230 

1300 IF RR=0 THEN RETURN 

1310 RC=0 

1320 RC=RC+1 

1330 26 (K)=R$ (RC) 

1340 IF K<1000 THEN K=kK+1 

1350 IF RC<RR THEN 1320 

1360 RETURN 

1370 IF K<1000 THEN 1230 

1380 RETURN 

1390 REM +* REGLA CON DOS VARIAEL.ES * 
1400 FOR T=1 TO 100 

1410 R$(T)="" 

1420 NEXT T 

1430 K=01RR=0 

1440 IF K=1000 THEN RETURN 

1450 Kek+1 

1460 IF Z$(K)="" THEN 1770 

1470 REM DESCOMPOSICION EN TRES PALABRAS 
1480 Q$=2$ (K) 

1490 J=0 

1500 J=J+1 

1510 IF MID$(06,J,1)=CHR$ (32) THEN 1540 
1520 IF J<LEN(OS$) THEN 1500 

1530 PRINT " ERROR EN LA COMPILACION D 

E LA REGLA"1GOTO 70 

1540 ASsLEFTS(0$,J) 

1550 Q$=MIDS$ (Q$, J+1) 

1560 J=0 

1570 J=J+1 

1580 IF MID$(0$,J,1)=CHR$ (32) THEN 1610 
1590 IF J<LEN(O$) THEN 1570 

1600 PRINT "- ERROR EN LA COMPILACION D 

E LA REGLA"*GOTO 70 

1610 BS=LEFTS(0$,J) 

1620 O$=MIDS$(D, J+1) 

1630 J=0 

1640 J=3+1 

1650 IF MID$(0$,J,1)=CHR$ (32) THEN 14680 
1660 IF J<LEN(Q$) THEN 1640 

1670 PRINT " ERROR EN LA COMPILACION D 

E LA REGLA"sGOTO 70 

1680 PRINT:PRINT TAB(10)3"COMPILACION DE 
LA REGLA" 1PRINT 

1490 CS=LEFTS(0$,J) 

1700 MESMIDS(F$, 3,LEN(BS)) 

1710 IF B$<>M6 THEN 1440 

1720 RR=RR+1 

1730 N$aMID$(E$,3,LEN(E$)-4) 

1740 RS(RR)=A$+N$+C0$ 

1750 PRINT "> "5RS(RR) 

1760 GOTO 1440 

1770 IF RR=0 THENRETURN 


1780 M=0 
1790 M=M+1 
1800 1F M>RR THENRETURN 
19310 26 (K)=RS (M) 
1320 IF K=1000 THEN FRINT "MEMORIA LLENA 
"+GOTO 70 
18930 K=K+1 
1840 GOTO 1790 
1950 REM 03644 06-24 04 06d 6 00d 2d 00 NED MEDH 
1860 REM * LIST ALL +* 
1870 PRINT 
1880 K=0 
1890 K=kK+1 
1900 IF 28 (K)="" THENRETURN 
1910 PRINT Z6(K) 
1920 IF K<1000 THEN 1890 
1930 RETURN 
1940 REM dv 16 de de dl de dd MD DO 6 dE dE A MDI 
1950 REM FORMACION DE REGLAS CON *Y” DEL 
TIPO SIGUIENTE: 
1960 REM (X COME Y SI X ES-UN AVE E Y 
VIENE EN CAJAS) 
1970 REM EL ENUNCIADO X DEEE PRECEDER EN 
LA LISTA AL Y PARA TODOS LOS 
1975 REM EJEMPLOS A CODIFICAR 
1980 REM DESCOMPOSICION EN SECCIONES 
1990 J$=MIDS$(J$,2)1 REM ALIGERADO DE *X?” 
2000 PRINT¿PRINT TAE(10)3"COMFILACION DE 
LA REGLA" :PRINT 
2010 J=1 
2020 Je=J+1 
2030 IF MID$(J$,J],1)=CHR$(32) THEN 2060 
2040 IF J<LEN(J$) THEN 2020 
2050 PRINT " ERROR EN LA COMPILACION D 
E LA REGLA"1 RETURN 
2060 AS=LEFTS(J6,J)1 REM RELACION 1 
2070 J$=MID$(J6,J+7): REM CENTRADO EN EL 
COMIENZO DE LA SEGUNDA RELACION 
2080 J=11 COUNT=0 
2090 J=J+1 
2100 IF MID$(J$,J,1)=CHR$(32) THEM COUNT 
=COUNT+1 
2110 IF COUNT=2 THEN 2140 
2120 IF J<LEN(J$) THEN 2090 
2130 PRINT " ERROR EN LA COMFILACION D 
E LA REGLA"1 RETURN 
2140 BS=LEFTS(J$,J':+ REM ENUNCIADO 1 
2150 CS$=MID$(J6,J+6)1 REM ENUNCIADO 2 
2160 IF CS=CHR$S (32) THEN PRINT " ERROR 
EN LA COMPILACION DE LA REGLA": RETURN 
2170 REM RASTREO DE LA BASE DE DATOS 
2180 FOR T=1 TO 200 
2190 R$(T)="" 
2200 NEXT T 
2210 R1:0:R2=99 
2220 K=0 
2230 K=K+1 
2240 IF 2Z$(K)="" THEN 2310 
2250 1F Ri=99 OR R2=200 THEN FPRINT "INSU 
FICIENCIA DE MEMORIA" GOTO 2310 
2260 LB=LEN(B$) 
2270 IF RIGHTS (Z$(K),LB)=BS THEN Ri=R1+1 
IR$(RI)=LEFTS(ZS (K) ,LEN(ZS (K))-L.B) 
2280 LC=LEN(CS6) 
2290 IF RIGHTS (Z$(K),LC)=C$ THEN R2=R2+1 
IR$S(R2)=LEFTS(Z$ (K) ,LEN(ZS (K))-LC) 
2300 IF K<1000 THEN 2230 
2310 IF R$(100)=""THENPRINT"ENUNCIADO2 1 
NTRODUCIDO NO CONSTA EN LA BASE DE DATO 
S"* RETURN 
2320 REM CODIFICACION DE REGLAS 
2330 R1=01R2=99 


2340 R2=R2+1 

2350 Ri=R1i+1 

2360 IF R$S(R1)>CHR$(32) AND R$(R2) >CHR$ (€ 
32) THEN Z$(K)=R$(R1I)+ASIRS(RZIRM 

2370 PRINT"> "3Z5$(K) 

2380 K=K+1 

2390 IF RS(R2+1)<>"" THEN 2340 

2400 IF R$(R1+1)<>"" THEN 2350 

2410 RETURN 

2420 REM 0636 dde de de dd 6H dE A DREAM 

2430 REM ARITHMETIC 

2440 LJ=LEN(J$) 

2450 IF ARITHFLAG<3 THEN GOSUB 2490 

2460 IF ARITHFLAG=3 THEN GOSUB 2890 

2470 IF ARITHFLAG=4 THEN GOSUB 3080 

2480 RETURN 

2490 REM sesedeardedr SUM TIMES 4400006004 

2500 J$=MIDS$(J$,5,LJ-5) 

2510 IFLEFTS(I$,2)="S(" THENJ$=MID$(J$,3) 
2520 LJ=LEN(J$) 

2530 K=0 

2340 Kak+1 

2550 IF MIDS(J6,K,1)=CHR$(32) THEN A$=LE 
FTS (I$,K-1)1J6=MI1DS(J6,K+1):GOTO 2580 
2560 IF K<LJ THEN 2540 

2570 PRINT TAB(12)5 "ERROR ARITMETICO":RE 
TURN 

2580 LJ=LEN(J$) 

2590 Kx=O 

260) KekK+1 

2610 IF MIDS(J$,K, 1)=CHR$(32) THEN B$=LE 
FTS(IS,K-1)1J$=MIDS (J$,K+1):GOTO 2640 
2629 IF K<LJ THEN 2600 

2630 PRINT TAB(12)5"ERROR ARITMETICO": RE 
TURN 

2640 LJ=LEN(J$) 

2650 Kz=0 

2660 K=kK+1 

2670 IF MIDS(J8,K,1)=CHR$(41) THEN Cé=LE 
FTS(J$,K-1)1GOTO 2700 

2680 IF K<LJ THEN 2640 

2690 PRINT TAB(12)5 "ERROR (DEMASIADAS VA 
RIABLES) "* RETURN 

2700 ANz=01 BN=0: CN=0 

2710 IF ASC(A$)>58 THEN An=1 

2720 IF ASC(B$)>58 THEN BN=2 

2730 IF ASC(C$)>58 THEN CN=4 

2740 GUIDE=AN+BN+CN:3 IF GUIDE=3 OR GUIDE= 
5 OR GUIDE=46 THEN 2690 

27390 IF ARITHFLAG=2 THEN 2820: REM TIMES 
2760 IF GUIDE>O THEN 2790 

2770 IF VAL(AS$)+VAL (B$)=VAL(C$) THEN FRI 
NT "SI"!* RETURN 

2780 PRINT "NO": RETURN 

2790 IF GUIDE=1 THEN PRINTVAL (0$)--VAL. (Er 
)1GOSUB 40: RETURN 

2800 IF GUIDE=2 THEN FRINTVAL (C$)-VAL (As 
):GOSUB 401 RETURN 

el PRINT VAL (A$)+VAL (B$) : GOSUB 40: RETU 
N 

2820 REM **TIMES+* 

2830 IF GUIDE>0O THEN 2840 

2840 IF VAL (A$)*VAL(B$)=VAL(C$) THEN PRI 

NT "SI"! RETURN 

2830 PRINT "NO": RETURN 

2860 IF GUIDE=1 THEN PRINTVAL (C$) /VAL (Eb 
):GOSUB 401 RETURN 

2870 IF GUIDE=2 THEN PRINTVAL (C$) /VAL (AS 
)1GOSUB 401 RETURN 

e PRINT VAL(A$)*VAL (B$) : GOSUE 40: RETU 
2890 REM dede 2 24 d0 1616 de de LES SA IE 
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2900 NF=0 

2910 IF ASC(J$)<58 THEN NF=1:REM NUMEROS 
2920 COLNT=0 

2930 K=0 

2940 K=k+1 

2950 IF MIDS(J$,K,1)=CHRS$(32) THEN COUNT 
=COUNT+1 

2960 IF COUNT=2 THEN 3000 

2970 IF K<LEN(J$) THEN 2940 

2980 PRINT TAB (12); "ERROR DE COMPARACION" 
2990 RETURN 

3000 B$=MID$(J$,K+1) 

3010 AS=LEFTS (J$,K-6) 

3020 IF NFw1 THEN 3050 

3030 IF AS$<BS THEN PRINT "SI": RETURN 
3040 PRINT "NO"«RETURN 

3050 REM * NUMEROS + 

3060 IF VAL(A$)<VAL (B$) THEN FRINT "SI" 
RETURN 

3070 PRINT "NO"s* RETURN 

3090 REM dvd de de dé 26 de 6 6 26 26 TNT 96 06 6 26 06 AAA A 
3090 IF RIGHTS(J$,2)="X " THEN 3190 
3100 Kz=0 

3110 Kz=kK+1 

3120 IF MIDS(J$,K,1)=CHR$(32) THEN 3160 
3130 IF K<LEN(J$) THEN 3110 

3140 PRINT TAB(12)5 "ERROR ARITMETICO" 
3150 RETURN 

3160 A=VAL (LEFTS (J$,K-1)> 

3170 IF INT(A)=A THEN PRINT "SI": RETURN 
3180 PRINT "NO": RETURN 


FUZZY 


A AA 


2 REM * * 
3 REM * FUZZY RITA * 
4 REM * * 
5 REM dede ed al 266 16 6 06 26 6 Md 
10 REM 


20 GOSUB 1380: REM INICIALIZACION 

30 GOSUB 11601 REM OPCIONES DE SALIDA 

40 GOSUB 1250:REM PREGUNTAS DISCRIMINA- 
TORIAS 

50 GOSUB 140: REM CONSULTAS AL. USUARIO 

60 GOSUB 480:REM TOMA DE DECISION Y AC- 
TUALIZACION DEL CONOCIMIENTO BASE 

65 GOSUB 2000: REM SONIDO 

70 PRINT" PULSE <RETURN> FARA CON 

TINUAR "3 

80 IF X6<>"" THEN INPUT 1$:1G0T0O50 

90 PRINT"ELADIESTRAMIENTO" 

100 PRINT" O CUALQUIER OTRA TECLA 

Y DESPUES<RETURN> FARA UTILIZAR *RITA*” 

110 INPUT X$:GOTOSO 

120 END 

130 REM 000 de 24d 26 26d 16 6d 26 0 06 6 HA 

140 REM CONSULTAS AL USUARIO 

150 PRINT"" 

160 PRINT" LOS SUJETOS QUE FUEDO DI 

FERENCIAR SON LOS SIGUIENTES: " 

170 PRINT 

180 FOR J=1 TO TT 

190 PRINT" > "sas (J) 

200 NEXT Js¿PRINT " . 

210 GOSUB 1500 


220 IF X$="" THEN PRINT * FIENSE EN U 


240 


3190 K=0 

3200 K=kK+1 

3210 IF MID$(J$,K,1)=CHR$(7:2) THEN 3240 
3220 IF K<LEN(J$) THEN 3200 

3230 PRINT TAB(12)5 "ERROR ARITMETICO": RE 
TURN 

3240 PRINT INT(VAL(LEFTS (J$,K-1))) 
3250 RETURN 

3260 REM 406 de 06d 16 0 dl 0 0 6 0 ADE 
3270 REM INICIALIZACION 

3280 PRINT ""1»POKE 53280,0:P0OKES3281,0 
3290 DIMZ$ (1000) ,R$ (200) 

3300 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT Li 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,253 

4070 POKE SID+4,17 

4080 FOR L1=48 TO 220 STEF 3 

4090 POKE SID+1,L1 

4100 NEXT L1 

4110 FOR L1=28 TO 200 STEP 3 

4130 NEXT L1 

4140 FOR L1i=200 TO 28 STEF -3 

4150 POKE SID+1,L1 

4160 NEXT L1 

4170 POKE SID+1,0 

4180 RETURN 


RITA 


NO Y A CONTINUACION PULSE <RETURN>" 

230 IF X8<>"" THEN PRINT" ESTOY PREPA 
RADO PARA DETERMINAR CUAL HA ELEGIDO" 
240 IF X$="" THEN INPUT X$ 

250 ADD=.5 

260 FOR J=1 TO DQ 

270 ADD=ADD+ADD 

280 GOSUB 1500 

290 IF X$<>"" AND TT>2 THEN 390:¿REM COM 
PROBACION PARA DETERMINAR SI SE PLIEDE 
292 REM OMITIR LA FREGUNTA 


300 PRINT " INTRODUZCA LUN NUMERO E 

NTRE: " 

310 PRINT" 1 (VERDAD) Y Q (FALSO 
). (PARA ACAEAR INTRODUZCA 
cs)" 


320 PRINT:¿PRINT ES(J)>3"" 

330 INPUT H$11F H$="$" THEN PRINT:PRINT" 
GRACIAS"*+PRINT:1END 

340 C(J)=VAL (H$) 

350 C(J)=ADD*C (J) 

360 NEXT J 

370 RETURN 

380 REM 364 36 06 3646 26 36 06 20M 06M DH EM 

390 REM COMPROBACION PARA DETERMINAR SI 
LA PREGUNTA SE PUEDE OMITIR 

400 JUMF=1 

410 FOR W=1 TO TT 

420 IF ABS(B(W,J)-B(1,3))>.7 THEN JUMF=0 
430 NEXTW 

440 IF JUMP=0 THEN 300 

450 C(JUMP)=B(W, J) 

460 GOTO 340 


470 REM 406466 26 10d de dd MO DO 06 6 DH DEE E 16 

480 REM TOMA DE DECISION 

490 FOR J=1 TO TT 

500 D(J)=0:1E(J)=01:F (J)=0 

510 NEXTJ 

520 ADD=.5 

530 FOR J=1 TO TT 

540 ADD=ADD+ADD 

5350 FOR X=1 TO DQ 

560 REM PRUEBE CON DISTINTOS COEFICIEN- 
TES EN LAS TRES LINEAS SIGUIENTES 

542 REM HASTA OBTENER LOS MEJORES RESUL- 
TADOS 

570 IF C(X)=B(J,X) THEN D(J)=D(J)+1 

580 IF ABS(C(X)-B(J,X))*.6*ADD THEN E(J) 

=E(J)+,.4 

590 IF ABS(C(X)-B(J,X))<1.2*ADD THEN F(J 

)=F(J)+.1 

600 NEXT X 

610 NEXT J 

620 Al=11A2=11A3=1 

630 Fi=11F2=11F3=1 

640 FOR J=1 TO TT 

650 IF D(J)>F1 THEN Fi=D(J):A1=J3 

650 IF E(J)>F2 THEN F2=E(J):4A2=J 

670 IF F(J)>F3 THEN F3=F (J)1A3:=J 

680 NEXT J 

6790 REM **COMUNICACION DEL RESUL.TADO*+* 

700 PRINT 

710 CFLG=0 

720 PRINT "EL RESULTADO MAS PROBABLE ES 

"5As(A1) 

730 IF A2<>A1 THEN PRINT"EL SIGUIENTE MA 

S PROBABLE ES "3A$(A2): CFLAG=1 

740 IF A3<>A2 AND A3<>A1 THEN FRINT"EL S 

IGUIENTE MAS PROBABLE ES "5A$(A3): CFLAG= 2 


750 FRINT 
760 PRINT "ES CORRECTO EL RESULTADO MAS 
PROBABLE? (S /N"5 


770 INPUT FS$1F$=RIGHTS$(F$,1) 

780 IF F$<>"S" AND F$<>"N" THEN 770 

790 IF F6$<>"S" AND X$<>"" THEN RETURN 
800 IF F$="S" THEN 980 

810 IF TT=2 AND Al=1 THEN Ai=2:GOTO 980 
820 IF TT=2 THEN Al=1:GOTO 980 

830 IF CFLG=0 THEN 890 

840 PRINT"ES CORRECTA MI SEGUNDA ELECCIO 
N? (S/N "3 

8S0 INPUT F$:F$=RIGHTS (F$,1) 

860 IF F$="N" THEN 890 

870 IF CFLG=1 THEN A1=A2:GOTO 980 

880 IF CFLG=2 THEN A1=A3:GOTO 980 

690 GOSUB 1500 

$00 FOR J=1 TO TT 


910 PRINT Jj"- "3A$(J) 

$20 NEXT J 

930 PRINT 

940 PRINT" CUAL ES EL CORRECTO?" 


950 INPUT At 

960 IF A1<1 OR A1>TT THEN 950 

970 REM ** ADIESTRAMIENTO DE RITA** 
ACTUALIZACION DEL CONOCIMIENTO BASE 

980 FOR J=1 TO DA 

990 IF B(A1,J)<>0 THEN B(A1,J)=(C(J)+5*B 

(A41,3))/6 

1000 IF B(A1,J)=0 THEN B(A1,J)=C(J) 

1010 B(A1,J)=INT(10*B(A1,J))/10 

1020 NEXT J 

1030 PRINT 

1040 IF U$="" THEN RETURN 

1050 FOR J=1 TO TT 

1060 PRINTIGOSUB 1500 


1070 PRINT A$(J) 

1080 PRINT 

1090 FOR K=1 TO DQ 

1100 PRINT ES (K)5B(J,K) 

1110 NEXT K 

1120 NEXT J 

1130 PRINT 

1140 RETURN 

1150 REM 36366 6 06 96 96 26 26 26 06 16d 06 dd A 

1160 REM OPCIONES DE SALIDA 

1170 TT=0 

1180 TT=TT+1 

1190 GOSUB 15300 

1200 FRINT"INTRODUZCA LA OPCION DE SAL ID 
A NUMERO"TT" (PARA ACABAR PULSE <RETURN> 
y 

1210 INPUT AS(TT) 

1220 IF AS(TT)="" OR TT=51 THEN TT=TT-1e 
RETURN 

1230 GOTO1180 

1240 REM 4d 06 36 de 06 36 de dl dl 16 6 DE DA MIMI 

1250 REM PREGUNTAS DISCRIMINATORIAS 
1260 PRINT"" 

1270 FOR J=1 TO TT 

1280 PRINT A$(J) 

1290 NEXT J 

1300 DQ=0 

1310 DQ=DQ+1 

1320 GOSUB 153500 


1330 PRINT" INTRODUZCA LA FREGUNTA 

"DQ:PRINT" (PARA ACABAR PULSE <RETUR 
N>)" 

1340 INPUT E$(DO) 

1350 IF ES(DQ)="" OR DQO=51 THEN DO=DG-1: 
RETURN 


1350 GOTO1310 

1370 REM 404 646 06 16 36 36 dl 14 06 16 06 6 0 HA 

1380 REM INICIALIZACION 

1390 PRINT ""*POKE 53280,0:FOKE 53281,0 
1400 REM REDUZCA EN LA LINEA SIGUIENTE E 
L TAMANO DE LAS MATRICES CONFORME " 

1402 REM A SUS NECESIDADES 

1410 DIM A$(50),B(50,50),C0(50),D(50),E$( 
50),F(50),6(50) 

1420 X$="" 

1430 PRINT" SI QUIERE VER EL CONOCIMIEN 
TO BASE AC-TUALIZADO "; 

1440 PRINT"PULSE CUALQUIER TECLA SEGUIDA 
DE <RETURN>"5 

1450 PRINT" DESPUES DE CADA EJECUCION. " 
1460 PRINT" EN CASO CONTRARIO PULSE SOL 

O <RETURN>. " 

1470 INPUT US$ 

1480 PRINT "" 

1490 RETURN 

1500 PRINT "=== 


1510 RETURN 

2000 SID=54272 

2010 FOR L1=0 TO 23 
2020 POKE SID+L1,0 
2030 NEXT L1 

2040 POKE SID+24,7 
2050 POKE SID+5,15 
2060 POKE SID+6,55 
2070 POKE SID+4,33 
2080 FOR Li=1 TO 40 STEP 4 
2090 POKE SID+1,L1 
2100 FOR L2=1 TO 10 
2110 NEXT LZ,L1 
2120 POKE SID+6,0 
2130 RETURN 


241 


Programas para Apple Il 


II DM MI 
+* * 
* S.S. LISP * 
* * 
Id A MI 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOTO 4250: 
CION ++ 
II A 
A$ = MIDS$ (AS$,E) 
AS = LEFTS (As, 
RETURN 
REM ea a 0 6 0 HH 
PRINT 
NN o 
INPUT "5As 
IF AS = THEN END : REM 
** PARA ACABAR <RTN> ** 
REMO Ie ot ed 6d 6 00 16 0 DH DM MH 
FOR J = 1 TO 12 
xX(J) = 0 
Y(J) = 0 
Z(J)= 0 
190 NEXT J 
200 REM dese sed0 da dd M6 dd MIMI 
210 R = 0:S = 0:T = 0 


0d M6 A 
REM *x* INICIALIZA 


so 


LEN (A$) 1) 


70 
80 
90 
100 
110 
120 
130 


140 
150 
160 
170 
180 
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SSLISP 


ezo 
230 
240 
eso 
260 


270 


280 


290 


300 
310 


320 
330 
340 
350 
360 
370 


380 
390 


CFIRST = O:CSECND = O 
EDGE = O 
FOR J = 1 TO LEN (AS) 
B$ = MIDS (A5$,J3,1) 
IF Bs = "(" THEN S =S + 1:2 
(S) = J: IF T = O THEN CFIRS 
T=J 
IF Bs = THEN T = T + 1:Y 
(T) = J:z IF CSECND < > O AND 
EDGE = O THEN EDGE = J - 1 
IF T= 1 AND BS = ")" THEN C 
SECND = J 
IF BS ="" 
(R) =J 
NEXT J 
IF S = T THEN GOTO 370: REM 
** ( ) EQUILIBRADOS *x 
IF S < T THEN PRINT : 
"-> OMISION DE (* 
IF S > T THEN PRINT : 
“-> OMISION DE )" 
INPUT "+ ";Bs 
AS = AS + BS 
GOTO 150 
IF NWDS = O OR NN 
440 
MS = 
FOR 


"y. 


THEN R = R + 1:X 


PRINT 


PRINT 


1 THEN GOTO 


LEFTS (A$,X(1) 
J = 1 TO NWDS 


1) 


400 


410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


760 


IF MS = NS(J) THEN As = OS(J 
) + MIDS (A$, LEN (N$(J)) + 
1) 
NEXT J 
NN = 1 
GOTO 150 
FLAG = O 
B$ = "NADA" 
IF | LEFTS (A$,5) = "CAR (" THEN 
FLAG = 1 
IF. LEFTS (A$,5) = "CDR (" THEN 
FLAG = 2 
IF | LEFTS (A$,6) = "CONS (” THEN 
FLAG = 3 
IF LEFTS (A$,6) = "ATOM (" THEN 
FLAG = 4 
IF LEFTS (A$,7) = "IGUAL (" 
THEN FLAG = 5 
IF. | LEFTS (A$,6) = "NULO (" THEN 
FLAG = 6 
IF LEFTS (A$,9) = "MIEMBRO 
(" THEN FLAG = 7 
IF LEFTS (A$,8) = "MIGUAL ( 
" THEN FLAG = 8 
IF.” LEFTS (A$,7) = "JUNTA (" 
THEN FLAG = 9 
IF | LEFTS (A$,10) = "INVIERT 
E (" THEN FLAG = 10 
IF | LEFTS (A$,7) = "MISMO (" 
THEN FLAG = 11 
IF | LEFTS (A$,7) = "LISTA (" 
THEN FLAG = 12 
IF  LEFTS (A$,8) = "DEFINE ( 
" THEN FLAG = 13 
IF LEFTS (A$,6) = "INC1 (" THEN 
FLAG = 14 
IF | LEFTS (A$,6) = "DEC1 (” THEN 
FLAG = 15 
IF  LEFTS (A$,7) = "CERO? (" 
THEN FLAG = 16 
IF.  LEFTS (A$,7) = "RESTA (" 
THEN FLAG = 17 
IF | LEFTS (A$,5) = "EXP (" THEN 
FLAG = 18 
IF. LEFTS (A$,5) = "MAX (" THEN 
FLAG = 19 
IF.” LEFTS (A$,5) = "MIN (" THEN 
FLAG = 20 
IF. LEFTS (A$,6) = "SUMA (" THEN 
FLAG = 21 
IF.” LEFTS (A$,7) = "MENOS (" 
THEN FLAG = 22 
IF. LEFTS (A$,8) = "DIVIDE ( 
" THEN FLAG = 23 
IF. LEFTS (A$,7) = "RECIP (" 
THEN FLAG = 24 
IF.  LEFTS (A$,7) = "RESTO (" 
THEN FLAG = 25 
IF. LEFTS (A$,6) = "MULT (" THEN 
FLAG = 26 
IF.” LEFTS (A$,7) = "MAYOR (" 
THEN FLAG = 27 
IF. LEFTS (A$,7) = "MENOR (" 
THEN FLAG = 28 
IF. | LEFTS (A$,11) = "NEGATIV 
0? (" THEN FLAG = 29 
IF. LEFTS (A$,9) = "NUMERO? 
(" THEN FLAG = 30 
IF.  LEFTS (A$,6) = "UNO? (" THEN 


770 
780 


790 
800 
810 


ezo 
830 


840 


eso 
860 
870 
eso 
890 
900 


910 
915 
920 


930 
940 
950 
960 
970 


980 


990 

1000 
1010 
1020 
1030 
1040 
1050 


1060 


1070 


1080 
1090 
1100 
1110 
1120 


¿130 
1140 


1150 
1160 


1170 
1180 
1190 
1200 


1210 
1220 


FLAG = 31 

IF FLAG > 13 THEN GOTO 800 
ON FLAG GOSUB 950,1010,1100, 
1250,1350,1490,1550,1690,189 

0,1960,2370,2570,4080 

GCTO 840 

IF FLAG > 24 THEN GOTO 830 

ON FLAG - 13 GOSUB 2440,2710 
,2780,2860,3090,3150,3390,34 

30,3490,3560,3620 

GOTO 840 

ON FLAG - 24 GOSUB 3710,3770 
,3830,3890,3950,4020,2780 

IF FLAG < > 0 THEN  GOSUB 8 

60 

GOTO 100 

CA add 

REM DEVUELVE 

REM RESPUESTA 

CA AA 

PRINT 3 PRINT ” 

ES..." 
IF BS = 

CIERTO)" 
IF BS< > 
Bs 

IF BS = "()" THEN PRINT : 
TAB( 5); "NADA" 

RETURN 

A AE 

REM ** CAR *%* 

A AAA 
IF S = 2 THEN B$ = MIDS (AS 
2(2) + 1,xX(2) - 2(2)) ' 
IF S > 2 THEN B$ = MIDS (AS 
»CFIRST,CSECND - CFIRST + 1) 

RETURN 


SU VALOR 


" C" THEN B$ = " C ( 


"(3)" THEN PRINT 


PRINT 


A ici 

REM ** CDR de 

IN 

GOSUB 950 
LB = LEN (B$) + 7 
BS = "(" + MID$ (A$,LB,EDGE 

- 1) 

IF. RIGHTS (B$,2) = "))" THEN 
BS = LEFTS (B$, LEN (B$) - 
1) 

IF. _MIDS (B$,2,1) = " " THEN 
BS = "(" + MIDS (B$,3) 
RETURN 

A do 
REM **e CONS 

CA ici 
B$ = MIDS (A$,7, LEN (A$) - 
1) 

J2A.O0 

IF. LEFTS (B$,1) = "(" THEN 
J=1 
J=J+“*1 

IF — —MIDS$ (B$,J,1) = "(" THEN 
GOTO 1190 

IF JX<C LEN (B$) THEN GOTO 
1150 
B$ = " > ERROR EN CONS <": RETURN 
LB = LEN (B$) - 1 
BS = "(" + LEFTS (B$,J - 1) 

+ MIDS (B$,J + 1) 

BS = LEFTS (B$,LB) 
IF RIGHTS (B$,2) = " )" THEN 
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1230 
1240 
1250 
1260 
1270 


1280 
1290 
1300 


1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


1410 


1420 


1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


1520 


1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


1610 


1620 
1630 
1640 
1650 


1660 


16570 
1480 
1690 
1700 
1710 
1720 
1730 
1740 


BS = LEFTS (B$, LEN (B$) - 
2) + ys. 
RETURN 
REM MMM III MD EII IE IE IE HA 
REM ** ATOM + 
A 
AS = MIDS$ (A$,7, LEN (A$) -— 
1) 
J= O 
J=J]+*1 
IF — MIDS (A$,J,1) = " " OR 
MIDS (A$,3,1) = "(" THEN RETURN 
IF JC LEN (A$) THEN GOTO 
1290 
BS = "Cc" 
RETURN 
E 
REM IGUAL 
E 
E = S: GOSUB 40 
J=0 
J=J]+1 
IF. | MIDS (A$,J,1) = ")" THEN 
RETURN 
IF. — MIDS (A$,J,1) = " " THEN 
GOTO 1440 
IF J< LEN (A$) THEN GOTO 
1390 
RETURN 
CS = LEFTS (A$,J - 1) 
AS = MIDS$ (A$,J + 1) 
IF C$ = A$ THEN B$ = " C" 
RETURN 
CA biie 
REM NULO 
CA aid 
IF AS = "NULO ()" THEN B$ = 


"COMANDO ILEGAL 
TA ARGUMENTO)" 


(NULO NECESI 


IF AS = "NULO (())" THEN B$ 
=>'"cC" 

RETURN 

REM die 
REM MIEMBRO 

REM MOI MO dd DD DH DE dd dE dd HE dd dE 
C$ = MID$ (A5$,9) 
J=1 
Jz=J+1 

IF. — MID$ (C$,J,1) = ")" OR 
MID$ (C$,J,1) = "(” THEN D$ 
= LEFTS$ (C$,J): GOTO 1630 


IF JC LEN (C$) THEN GOTO 
1590 

RETURN 
J= LEN (D5$) 
J=J+1 

IF — MID$ (C$,J, LEN (D$)) = 
D$ THEN C$% = LEFTS$ (C$, LEN 
(C$) —- 1): GOTO 1820 

IF JC LEN (C$) THEN GOTO 
1640 

RETURN 

II ido 
REM MIGUAL 

O 
C$ = MID$ (As$,7) 
J o 
J J 1 


= + 
IF — MIDS$ (C$,J,1) = " " THEN 
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1750 


1760 
1770 
1780 
1790 


1800 
1810 
1820 


1830 


1840 
1850 


1860 


1870 
1880 
1890 
1900 
1910 
1920 


1930 


1940 


GOTO 1770 


IF JC LEN (A$) THEN GOTO 
1730 

RETURN 
DS = LEFTS (C5$,J) 

C$ = MIDS$ (C$,J] + 2) 

C$ = LEFTS (C$, LEN (C$) - 
2) + ” ” 

J=0 

J=J+w*1 

IF. — MIDS$ (C$,J, LEN (D$)) = 
D$ THEN B$ = "(" +  MIDS$ (C5$ 
»J): GOTO 1850 

IF J< LEN (C$) THEN GOTO 
1810 

RETURN 
BS = LEFTS (B$, LEN (B$) — 
LD) + ")" 

IF — RIGHTS (B$,3) = ")))" THEN 
BS = LEFTS (B$, LEN (B$) — 
1): GOTO 1860 

RETURN 

CI iii 

REM JUNTA 

REM Ie d0 des dd 06 06 4 6 M6 A 
B$ = MID$ (A$,9) 

B5 = LEFTS (B$,Y(1) - 9) + 
" o" +  MIDS (B$,2(3) - 7) 
B$ = LEFTS (B$, LEN (Bs) — 
1) 

RETURN 

REM ed dd 6 6 DH HA 
REM INVIERTE 

REM db 
Bs = .. 

A$S = MID$ (A$,11) 

A$ = LEFTS (A$, LEN (As$) -— 
2) 

CT =0 

J=0 

J=J<“e1i 

IF J> LEN (A$) THEN GOTO 
2240 

IF. — MIDS (A$,J,1) = " " THEN 

GOTO 2080 

IF. | MIDS$ (A$,3,1) = "(" THEN 

GOTO 2120 
GOTO 2030 
CT = CT + 1 
G$(CT) = LEFTS (A$,J — 1) 
AS = MID$ (A$,J] + 1) 

GOTO 2020 
J=J+1 

IF. — MID$ (A$,J,2) = "))" THEN 

GOTO 2320 

IF — MIDS$S (A$,J,1) = ")" THEN 

GOTO 2200 

IF J<= LEN (A$) THEN GOTO 
2170 

GOTO 2120 
CT = CT + 1 
G$(CT) = AS + ")" 

GOTO 2260 
CT = CT + 1 
G$(CT) = LEFTS (A$,J) 

AS = MID$ (A$,J + 1) 

GOTO 2020 


CT = CT + 1 
G$(CT) = AS 


2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 


2430 
2440 
2450 


2460 


2840 
2850 
2860 
2870 


FOR M = CT TO 1 STEP. —- 1 
B$ = B$ + G$(M) 
IF M> 1 THEN Bs = BS + " " 


NEXT M 
BS = "(" + BS + ")" 
RETURN 
CT = CT + 1 
G$(CT) = LEFTS (A$,J + 1) 
AS = MIDS (A$,J + 2) 
GOTO 2020 
REM 1640 d6 de dd 6 dE dd ME E dd HH HE 
REM IGUAL 
TA occ 
E=8 
GOSUB 60 
Mu= ASC (A$) 
IF M> 47 AND M< 58 THEN GOTO 
2900 
J= 0 
J=JI2+1 
IF. — —MIDS (A$,J,2) = ") " THEN 
J=JJG+1: GOTO 1440 
IF.” MIDS (A$,J3,3) = ")))" THEN 
GOTO 2500 
IF — MIDS (A$,J,2) = "))" THEN 
GOTO 2530 
IF JC LEN (A$) THEN GOTO 
2440 
RETURN 
C$ = LEFTS (A$,J + 2) 
A$ = MIDS (A$,J + 4) 
GOTO 1460 
C$ = LEFTS (A$,J + 1) 
A$S = MIDS$ (A$,J + 3) 
GOTO 1460 
CA iii 
REM LISTA 
A adi 
E =7 
GOSUB 60 
BS = "(" + AS + ")" 
RETURN 
REM 0d dd dd Dd dE DD dE dE Hd dd 
REM INC1 
REM 063434 d6d6 d6 d4 00 16 4 16 M6 M6 A dd dd 
E=7 
GOSUB 0 
B$ = STR$ ( VAL (A$) + 1) 
RETURN 
A iii 
REM DEC1 
A ii 
E =7 
GOSUB 60 
B$ = STR$ ( VAL (A$) — 1) 
RETURN 
IN 
REM CERO? 
A A a 


IF FLAG = 16 THEN E = 8 

IF FLAG = 31 THEN E = 7 
GOSUB 60 

IF A$ = "0" AND FLAG = 16 OR 
AS = "1" AND FLAG = 31 THEN 
BS = "Cc" 


RETURN 

A ie 
REM %%* DOS ARGUMENTOS * 
A io 


2880 
2890 
2900 
2910 
2920 


2930 


2940 


2950 


2960 
2970 


2980 


2990 


3000 
3010 


3020 


3030 


3040 


3050 


3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 


3260 


3270 


3280 


3290 


3300 


3310 


3320 


3330 


3340 


E = 13 
GOSUB 60 
J=0 
J=J+1 
IF. _MIDS (A$,J,1) = " " 
GOTO 2950 
IF JC LEN 
2910 
B$ = "> ERROR -— SOLO UN ARGU 
MENTO <": RETURN 


THEN 


(A$) THEN GOTO 


P.= VAL ( LEFTS (A$,J] - 1)) 
Q = VAL ( MIDS (A$,J + 1)) 
IF FLAG = 17 THEN B$ = STR$ 
(P —- Q): RETURN 

IF FLAG = 23 OR FLAG = 25 THEN 
B=P/Q 

IF FLAG = 25 THEN B = INT 
(.5+ Que (B- INT (B)) x* 1 
000) / 1000 

IF FLAG = 18 THEN B=P”?Q 
IF FLAG = 11 AND P = Q THEN 
BS = "Cc" 

IF FLAG = 27 AND O > Q THEN 
Bs = " C" 

IF FLAG = 28 AND P < Q THEN 
BS = "Cc" 

IF FLAG = 32 THEN B =P - Q 
IF FLAG = 11 OR FLAG > 26 THEN 
RETURN 
B$ = STR$ (B) 

RETURN 

E 
REM EXP 

A Ai 
E=7 

GOSUB 40 

GOTO 2900 

E Ad 
REM *. MAX MIN 

REM MAS VECES 

REM sea a 06 0d 4 6 6 06H 
FS = LEFTS (A$,3) 
AS = MIDS$ (A$,6) 
CT =0 
FLAG = O 

IF FS = "MULT" THEN CT = 1 
J= O 
J=J]+1 

IF |  —MIDS$ (A$,J,1) = " " THEN 
GOTO 3280 

IF J< LEN (A$) THEN GOTO 
3240 

IF J>= LEN (A$) THEN FLAG = 
1 
P= VAL ( LEFTS (A$,J - 1)) 
3 IF FLAG = O THEN A$ = MID$ 
(AS,J + 1) 

IF FLAG = O THEN A$ = MID$ 
(A$S,J + 1) 

IF FS < > "SUMA" AND CT = 


O THEN CT = P 
IF FS = "MAX" AND P > CT THEN 


CT =P 
IF FS = "MIN" AND P < CT THEN 
CT =P 
IF FS = "SUMA" THEN CT = CT 
+:p 
IF FS = "MULT" THEN CT = CT 


245 


* P 


3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 


4000 
4010 
4020 
4030 
4040 
4050 


4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


4160 


4170 


4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 


4290 


4300 


REM ese a 06 06 06 06d 06 00 6 HE 0H DH HH 
REM MENOR 

O 
E=8 

GOSUB 40 

GOTO 2900 

E 
REM NEGATIVO? 

IN id 
E=9 

GOSUB 0 

IF VAL (A$) < O THEN B$ = 
“—» 

RETURN 

REM 063636 26 06 06 04 16 26 16 26 06 dd 06 6 46 6 dd 
REM NUMERO 


IN 
AS = MID$ (A$,10) 

IF ASC (A$) > 44 AND ACS(A 
$) < 58 THEN B$ = "T" 

RETURN 

REM Ie 46d 06 dd 00 06 6 dd M0 6 dd HE HEHE 
REM DEF INE 

REM M6 d6 06 dd 4 6 dd DO E HH DH E 
AS = MID$ (A$,9) 
FS = LEFTS (A$,x(2) - 9) 
G$ = MID$ (A$,X(4) - 6) 
J=0 
J=J]+“*1 

IF. MIDS (G$,J,1) = " " THEN 
GOTO 4180 

IF JC LEN (G$) THEN GOTO 
4140 
B$ = "> ERROR - DEFINE INCOR 
RECTO <": RETURN 
G$ = LEFTS$ (G$,J - 1) 


NWDS = NWDS + 1 
O$S(NWDS) = G5$ 
NS (NWDS) = F$ 
BS = FS 

RETURN 


A adi 
REM * INICIALIZACION «+ 
REM Ie s4 4 06 04 04 26 6 06 dd 00d 0 IMA 
HOME 

DIM G$(20) ,0$(20),N$(20),X( 
12),Y(12),2(12) 
NWDS = O: REM 


** CONTADOR DE FUNCIONES 
DEFINIDAS POR EL 
USUARIO e. 


GOTO 100 


PROLOG-A 


3350 IF FLAG = O THEN GOTO 3230 

3360 B$ = STR$ (CT) 

3370 RETURN 

3380 REM did 

3390 REM * MIN ++ 

3400 REM seo dt se dt 06 26 36 16 46 36 dE 26 46 16H HH 

3410 GOTO 3180 

3420 REM iii 

3430 REM SUMA 

3440 REM A iii 

3450 F$ = "PLUS" 

3460 A$ = MIDS (A$,7) 

3470 GOTO 3200 

3480 REM 34600 de dt dt 06 6 36 36 06 dd DH III 

3490 REM MENOS 

3500 REM md 46 d6 d6 de 6 6 06 06 M6 16 6 dd 0H HA 

3510 E = 8 

3520 GOSUB 60 

3530 B$ = STR$ ( - VAL (A$)) 

3540 RETURN 

3550 REM dem de d6 de dd dE 26 06 6 M6 06 6 Hd 4 Hd 

3560 REM DIVIDE 

3570 REM 6 de s4 de dt dt de de 16 dd dE E dE dd HH IIA 

3580 E = 11 

3590 GOSUB 60 

3600 GOTO 2900 

3610 REM memo dt 26 dt dl 6 dd 6 6 M6 MD 

3620 RECIP 

3630 REM vdd de dt 6 06 6 06 6 dE MH MIE 

3640 E = 8 

3650 GOSUB 60 

3660 IF AS = "0" THEN B$ = "> ER 
ROR - DIVISION POR CERO <": 

3670 B = 1 / ( VAL (A$)) 

3680 B$ = STR$ (B) 

3690 RETURN 

3700 REM ode de de 26d 16 6 06H 6 dE HE 

3710 REM RESTO 

3720 REM 30 s0 dede de e 6d dd dd MIE 

3730 E = 12 

3740 GOSUB 60 

3750 GOTO 2900 

3760 REM dede de de dd 6 6 6 06 6 6 6 dd HH A 

3770 REM MULT 

3780 REM 13436 24 26 dv 16 16 36 36 46 06d dE 

3790 F$ = "TIMES" 

3800 A$ = MID$ (A$,8) 

3810 GOTO 3200 

3820 REM mm 06 1 ql dd dd 6 M6 MD III 

3830 REM MAYOR 

3840 REM meme de dt dt dd dd dE DE III 

3850 E = 11 

3860 GOSUB 60 

3870 GOTO 2900 

1 (REM dese 406 st 16 de e 16 46 36 se 

2 REM + * 

3 REM * PROLOG-A +* 

4 REM + * 

S REM mese 00 dt dd dde de 16 
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10 
30 
40 


so 


REM 

GOTO SO 

PRINT 3 PRINT "NO HAY (MAS) R 
ESPUESTAS ": RETURN 

GOSUB 3280: REM  INICIALIZACI 


70 
80 
$0 
100 


110 


120 


130 
140 


150 
160 
170 
180 


190 
200 


310 
320 


330 


350 


ON 
PRINT 
INPUT "2. "5J]$ 
IF J$ = "" THEN END 
IF J$ = "LISTA TODO" THEN  GOSUB 
1860: GOTO 70 
IF.  LEFTS (J$,6) = 
J$ = MIDS (J$,6) + " ": 
990: GOTO 70 
IF RIGHTS (J$,1) < > ")" THEN 
PRINT : PRINT "1.";3: INPUT 
"o "5MS:J$ = J$ + M$: GOTO 12 
o 
LJ = 
J$ = 
: REM 
2% SUSTITUCION DEL xx .* 
*..n* ULTIMO >)” POR — **x* 
414 UN ESPACIO MN 
LJ = LEN (J$) 
FLAG = O 
IF.  LEFTS (J$,5) = "METE(" THEN 
J$ = MID$ (J$,6): FLAG = 1 
RULEFLAG = O:PLUSFLAG = O: ARI 
THFLAG = O 


"LISTA " THEN 
GOSUB 


LEN (J$) 
LEFTS (J$S,LJ - 1) + " " 


FOR R = 1 TO LEN (J$) 

IF. ——MIDS (JS$,R,4) = " SI " THEN 

RULEFLAG = R:FLAG = 6 

IF. — —MIDS$ (J$,R,3) = " Y " THEN 

PLUSFLAG = R 

IF. — MID$ (J$6,R),5) "SUMA(" THEN 

ARITHFLAG = 1 

IF. — —MID$S (J$,R,6) = "VECES(" 
THEN ARITHFLAG = 2 

IF.  —'MIDS (J$,R,7) = " MENOR 

" THEN ARITHFLAG = 3 

IF. | MIDS (J$,R,3) = "ENT" THEN 
ARITHFLAG = 4 

NEXT R 

IF. LEFTS (J$,3) = "ES(" THEN 


J$ = MIDS (J$,4): FLAG = 2 
IF. | LEFTS (J$,9) = "CUAL(X 5; 


" THEN J$% = MID$ (J$,10):F 
LAG = 3 
IF  LEFTS (J$,15) = "CUAL ((X 
2) 5 X " THEN J$ = MID$ (J 


$,16):FLAG = 4 


IF FLAG = O THEN PRINT : PRINT 
"> ERROR DE SINTAXIS <": GOTO 
70 
LJ = LEN (J$) 

REM HH MD DH dd Md dd dE MH dE II 

* * 

* BIFURCACION A LAS * 

* * 

*  SUBRUTINAS PERTINENTES  * 

* * 


eMe DH MM 
IF PLUSFLAG < > O THEN  GOSUB 


1950: GOTO 70: REM 
+1. CODIFICACION DE ww 
MAA DE REGLA QUE xx 
e CONTIENE AND” — e. 


IF RULEFLAG < > O AND FLAG < 
> 5 THEN GOSUB 1110: REM 
1... CODIFICACION +30 
AMIA DE REGLA HARO 
IF ARITHFLAG < > O THEN  GOSUB 
2440: GOTO 70: REM  ARITMETI 


360 


370 
380 


390 


400 


410 


420 
430 
440 
441 
450 
460 
470 


480 
490 


500 
s10 
520 
s21 
530 
540 
550 
560 


570 
580 
590 
600 
610 
611 
620 


630 
640 
650 
660 
670 


680 
690 
700 
710 


720 


730 
740 
750 
760 


770 


780 


CA 


IF — RIGHTS (J]$,3) = " X " OR 
RIGHTS (J]$,3) = " 2 " THEN 
J$ = LEFTS (J$,LJ - 2) + " 
LJ = LEN (J$) 
IF FLAG = 1 THEN GOSUB 440: 
REM METE 
IF FLAG = 2 THEN —GUSUB 520: 
REM ES 
IF FLAG = 3 THEN (GOSUB 610: 
REM CUAL 
IF FLAG = 4 THEN  GOSUB 830: 
REM  CUAL2 
GOTO 70 
A ci 
REM METE 
IN Ea 
K=0 
K=K+1 
IF 2$(K) = "" THEN 2$(K) = J 
$: RETURN 
IF K < 1000 THEN GOTO 460 
PRINT : PRINT "> MEMORIA LLE 
NA <” 
RETURN 
REM Md dd 06d dd 06d 06d dE 6 ED DAME 
REM ES 
REM iia 
K=0 
K=K+1 
IF 2$(K) = "" THEN 580 
IF 2$(K) = J$% THEN PRINT : PRINT 
"SI": GOTO 590 
IF K < 1000 THEN GOTO 540 
PRINT : PRINT "NO” 
RETURN 
CI iii 
REM CUAL 
REM 6 s0d6 6 6 6 6 4 16 dE MM DE M6 II ME 
IF — LEFTS (J$,1) = "X" THEN 
GOTO 710 
J$ = LEFTS (J$,LJ - 1) 
K=0 
K=K<+1 
IF 2$(K) = "" THEN GOTO 690 
IF JS = LEFTS (2$(K), LEN ( 


J$)) THEN PRINT — RIGHTS (25$ 
(K),( LEN (Z$(K)) — LEN (J$ 
33) 

IF KK < 1000 THEN GOTO 650 


GOSUB 40 
RETURN 
E AAA 
* * 
*PREGUNTA COMIENZA POR ”X” + 
* * 
HDD MH DAME A MH 
J$ = MID$ (J$,3, LEN (J$) - 
3) 
LJ = LEN (J5$) 
K=0 
K=K+1 
IF 2$(K) = "" THEN GOTO 800 
Q$ = MIDS (2$(K), LEN (Z$(K) 
) - LJ,LJ) 
IF Q6 = J$ THEN PRINT : PRINT 
LEFTS (25$(K), LEN (Z$(K)) — 
(LJ + 2)) 
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790 IF HK< 1000 THEN GOTO 750 

800 GOSUB 40 

810 RETURN 

820 REM dede d 162% 26 26 26 dd dd dd M6 HH HA 

830 REM CcuALe 

IN TI Ad 

840 JS = LEFTS (J$,LJ - 2) 

850 LJ = LEN (J$) 

860Kk = 0 

870 K =K + 1 

880 IF 2$(K) = "" THEN GOTO 960 

890 LFLAG = O 

900 FOR L = 1 TO LEN (2$(K)) - 
LJ 

910 IF  MIDS$ (2$(K),L>,LJ) = J$% THEN 
LFLAG = L 

920 NEXT L 

930 IF LFLAG = O THEN GOTO 950 

940 PRINT : PRINT— LEFTS (25$(K), 
LFLAG - 2); MID$S (2Z$(K),(LFL 
AG + LJ)) 

950 IF K< 1000 THEN GOTO 870 

960 GOSUB 40 

970 RETURN 

980 REM idad dd 

990 REM LISTA 

991 REM ese 0 sed 06 06 dd 6 06 6 DE 6 MM 

1000 K = O 

1010 K = K + 1 

1020 IF 2$(K) = "" THEN RETURN 

1030 LFLAG = O 

1040 FOR L = 1 TO LEN (2$(K)) - 
LEN (J5$) 

1050 IF MIDS$ (2$(K),L, LEN (J$) 
) = J$ THEN LFLAG = 1 

1060 NEXT L 

1070 IF LFLAG = 1 THEN PRINT : PRINT 
25$(K) 

1080 IF K < 1000 THEN GOTO 1010 

1090 RETURN 

1110 REM 102% 2% 2% 1 26 46 26 36 36 6 16 dE dd dd 6 0 dd 
* * 
* FORMACION DE REGLAS * 
* * 
JODIDA MD MH MA 

1120 R = RULEFLAG 

1130 ES = LEFTS (JS,R):F$ = MIDS 
(JS,R + 4) 

1140 IF.  LEFTS (E$,1) < > "X" THEN 
PRINT : PRINT "> ERROR EN R 
EGLA <": GOTO 70 

1150 REM 0463 ted 4 04 16 4 26 0 dd dd M6 0 A 
* * 
*LA LINEA SIGUIENTE DETECTA+* 
* * 
* ENTRADAS TALES COMO * 
* * 


1160 
1170 
1180 
1190 
1200 
1210 


1220 


* X COME Y SI XESUN Z  +* 
e 


IF. RIGHTS (F$,2) = "Z " THEN 
GOTO 1390 

PRINT : PRINT— TAB( 15);"C0 
MPILACION DE LA REGLA" 

FOR T = 1 TO 100 
RS(T) = "" 

NEXT T 
ES = MIDS (ES,3):F$ = MIDS$ 
(F$,3) 
K = O¡RR = O 


248 


1230 
1240 


1250 


1260 
1270 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 


1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470 


1480 
1490 
1500 
1510 


1520 


1530 


1540 
1550 
1560 
1570 
1580 


1590 
1600 
16510 
1620 
1630 
1540 
1650 


1660 


K=K<+*+1 
IF 2$(K) = "" THEN GOTO 13 
00 
IF RIGHTS (2$(K), LEN (F$) 
)< > FS THEN GOTO 1370 
RR = RR + 1 
RS(RR) = LEFTS (2$(K),( LEN 
(Z2$(K)) - LEN (F$))) + ES 
PRINT : PRINT "> "¿RS(RR) 
GOTO 1230 
IF RR = O THEN RETURN 
RC =0 
RC = RC +1 


Z2$(K) = RS(RC) 
IF KK < 1000 THEN K = K + 1 
IF RC < RR THEN GOTO 1320 
RETURN 
IF KK < 1000 THEN GOTO 1230 


RETURN 

REM 1600 d6 a 6 4 4 06 16 6 6 6 6 IE 
* * 
* REGLA CON 2 VARIABLES + 
* * 


ie 
FOR T = 1 TO 100 

RSIT) 2 
NEXT T 

K = O¿RR = O 


IF KK = 1000 THEN RETURN 
K=K+1 

IF 2$(K) = "" THEN GOTO 17 
70 
id 
* * 
* DESCOMPOSICION * 
* * 
* EN TRES PALABRAS * 
* * 
dido 
Q$6 = 2$(K) 
J= O 
J=J]+1 

IF  MIDS$ (0$,J,1) = " " THEN 
GOTO 1540 

IF J<C LEN (Q6) THEN GOTO 
1500 

PRINT : PRINT "ERROR EN LA 
COMPILACION DE LA REGLA": GOTO 
70 
AS = LEFTS (Q$,J) 
Q0$ = MID$ (Q$,J + 1) 
JZAO0 
J=J¿1 

IF. — MIDS (0$,3,1) = " " THEN 
GOTO 1610 

IF JC LEN (Q%) THEN GOTO 
1570 

PRINT : PRINT "ERROR EN LA 
COMPILACION DE LA REGLA": GOTO 
70 
BS = LEFTS (0$,3) 
Q$ = MID$ (Q$,J + 1) 
J2=u0 
J=J+1 

IF. — MID$ (0$,J,1) = " " THEN 
GOTO 1480 

IF JC LEN (Q$) THEN GOTO 
16540 


1670 


1680 


1690 
1700 
1710 


1720 
1730 


1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


1830 
1840 
1860 


1870 
1880 
1890 
1900 
1910 
1920 
1930 
1950 


1960 


1980 


1990 


2000 
2o10o 
2o20 
2030 


2040 


PRINT : PRINT "ERROR EN LA 
COMPILACION DE LA REGLA": GOTO 
70 

PRINT : PRINT— TAB( 15);"CO 
MPILACION DE LA REGLA" 

C$ = LEFTS (Q$,3) 
M$ = MIDS (F$,3, LEN (B$)) 

IF B$< > M$ THEN GOTO 14 
40 
RR = RR + 1 
N$ = MIDS$S (E$,3, LEN (E$) — 
4) 

RS(RR) = AS + N$ + C$ 

PRINT "> "¿R$S(RR) 

GOTO 1440 

IF RR = O THEN RETURN 
M=.0 
M=Me1 


IF M> RR THEN RETURN 
Z2$(K) = R$(M) 


IF KK = 1000 THEN PRINT : PRINT 
"MEMORIA LLENA": GOTO 70 
K=K+1 

GOTO 1790 

REM 606 06 24 20 dl 06 06 0 6D 
* * 
* LISTA TODO * 
* * 
eiii 

PRINT 
K=0 
K=K+1 

IF 2Z$(K) = "" THEN RETURN 


PRINT 2Z$(K) 
IF KK < 1000 THEN GOTO 1890 
RETURN 


AA di 
* * 
* FORMACION DE REGLAS CON + 
* * 
* ”Y” DEL TIPO SIGUIENTE : +* 
* * 


iii 


REM 404604 26d 6 24 dl 6 6 6 dd Md MEA E 
* X COME Y SI X ES UN AVE + 
+ E Y VIENE EN CAJAS * 
* * 


*EL ENUNCIADO X DEBE PRECE-+* 
*DER EN LA LISTA AL Y PARA + 
*TODOS LOS EJEMPLOS A COD. * 
$0 DO DO 0 dd DO M0 DDD DIME 


REM 64600 36 6 06 dd 6 DE 0 DE 6 E Hd EH 
* 


DESCOMPOSICION 


xk kx xx 


* 
* 
EN SECCIONES * 
* 


MODO MIEDO IDO IDE IED DE DDD II IM 
J$ = MIDS (J]$,2): REM 
e ALIGERADO DE ”X” sex 
PRINT — TAB( 5);" INTRERPRETA 
NDO LA REGLA" 
J=1 
J=J]+1 
IF | MIDS 
GOTO 2060 
IF JC LEN (J$) 
2020 


(IJ$,J,1) = " " THEN 


THEN GOTO 


2050 


2060 


2070 


2080 
2081 
2090 
2100 


2110 


2120 


2130 


2140 


2150 


2160 


2170 


2180 
2190 
2200 
e210 
2211 
ez20 
2230 
2240 


2250 


2260 
2270 


2280 
2290 


2300 
2310 


2320 


2330 
2331 
2340 
2350 
2360 


PRINT : PRINT "ERROR EN LA 
COMPILACION DE LA REGLA": RETURN 
AS = LEFTS (J$,J): REM 

%%%* RELACION 1 dx. 
J$ = MIDS (J$,J] + 7): REM 
**x%* CENTRADO EN EL 1. 
xx COMIENZO DE LA *... 
e RELACION 2 NA 
J=1 
COUNT = O 
J=J+i 

IF. — —MIDS (J$,J,1) = " " 
COUNT = COUNT + 1 

IF COUNT = 2 THEN GOTO 214 
(o) 


THEN 


IF JC LEN (J$) THEN GOTO 
2090 

PRINT : PRINT "ERROR EN LA 
COMPILACION DE LA REGLA": RETURN 
BS = LEFTS (J$,J): REM 

%%* ENUNCIADO 1 e. 

C$ = MIDS (J$,J] + 4): REM 
**% ENUNCIADO 2 1... 

IF CS = "" THEN PRINT : PRINT 


"ERROR EN LA COMPILACION DE 
LA REGLA": RETURN 
CI di 


RASTREO DE LA BASE 


DE DATOS 


kk kx x 


* 
* 
* 
* 
* 
* 


OIDO 
FOR T = 1 TO 200 


RSIT) >= 

NEXT T 
RI=0 
R2 = 99 
Kk=0 
K=kK+1 

IF 2$(K) = "" THEN GOTO 23 
10 

IF R1 = 99 OR R2 = 200 THEN 

PRINT : PRINT "INSUFICIENCI 
A DE MEMORIA": GOTO 2310 
LB = LEN (Bs) 

IF — RIGHTS (2$(K),LB) = B$ THEN 
Ri = Ri + 1:RS(R1) = LEFTS 
(Z$(K), LEN (ZS(K)) - LB) 

LC = LEN (CS) 

IF. RIGHTS (2$(K),LC) = C$ THEN 
R2 = R2 + 1:RS(R2) = LEFTS 
(Z$(K), LEN (Z$(K)) - LC) 


IF K < 1000 THEN GOTO 2230 
IF R$(100) = "" THEN PRINT 
3 PRINT "EL ENUNCIADO 2 INTR 
ODUCIDO NO FIGURA EN": PRINT 


: PRINT "LA BASE DE DATOS.": 
RETURN 
II AAA ES 
* * 
* CODIFICACION DE REGLA + 
e * 
MEDIO ME DIME DIME DIED MIMI 
R1=0 
Re = 99 
R2 = Re + 1 
R1 =R1 +1 


IF RS(R1) > " " AND R$(Re) > 
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2370 
2380 
2390 


2400 


2410 
2420 


2440 
2450 


2460 


2470 


2480 
2490 
2500 
esio 


es20o 
2530 
2540 
2550 


2560 
2570 
2580 
2590 


2600 
2610 


2620 
2630 
2640 
2650 


2660 
2670 


2680 
2690 


2700 


2710 


2720 


2730 


2740 


2750 


2760 
2770 


“ " THEN Z$(K) = R$(R1) + AS 


+ RSIR2) + " " 

PRINT : PRINT "> "32$(k) 
K=K+1 

IF R$(R2 + 1) < > "" THEN 
GOTO 2340 

IF R$S(R1 + 1) < > "" THEN 
GOTO 2350 

RETURN 

E 
* * 
* ARITMETICA * 
* * 


MM MD MM III A 
LJ = LEN (J$) 

IF ARITHFLAG < 3 THEN  GOSUB 
2490 

IF ARITHFLAG = 3 THEN  —GOSUB 
2890 

IF ARITHFLAG = 4 THEN  GOSUB 
3080 

RETURN 

REM sx SUMA + 
J$ = MID$ (J$,S5,LJ - 5) 

IF.  LEFTS (J$,2) = "S(" THEN 
J$ = MIDS (J$,3) 
LJ = LEN (J5$) 
K=0 
K=K +1 

IF. MIDS (J$,K,1) = " " THEN 
AS = LEFTS (J$,K - 1):J]$ = 

MIDS (J$,K + 1): GOTO 2580 

IF KK < LJ THEN 2540 

PRINT : PRINT  TAB( 12);"ER 
ROR ARITMETICO": RETURN 
LJ = LEN (J5$) 


K=0 
K=K+1 

IF. — —MID$ (J$,K,1) = " " THEN 
BS = LEFTS (J$,K - 1):J]$ = 


MID$ (J$,K + 1): GOTO 2640 
IF KK < LJ THEN GOTO 2600 
PRINT : PRINT— TAB( 12);"ER 
ROR ARITMETICO": RETURN 
LJ = LEN (J5) 


K=0 
K=K+1 

IF.” MIDS (J$,K,1) = ")" THEN 
C$ = LEFTS (J$,K - 1): GOTO 


2700 
IF KK < LJ THEN GOTO 2660 
PRINT ; PRINT — TAB( 12);"ER 
ROR (DEMASIADAS VARIABLES)”: 
RETURN 
AN = O:BN = O:CN = O 
IF ASC (A$) > 58 THEN AN 
1 
IF ASC (B$) > 58 THEN BN 
2 
IF ASC (C$) > 58 THEN CN 
4 
GUIA = AN + BN + CN: IF GUIA 
= 3 OR GUIA = S OR GUIA = 6 
THEN GOTO 2690 
IF ARITHFLAG = 2 THEN GOTO 
2820: REM 4% TIMES xx 
IF GUIA > O THEN GOTO 2790 


IF VAL (A$) + VAL (B$) = 
VAL (C$) THEN PRINT : PRINT 
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2780 
2790 


2800 


2810 


2820 


2830 
2840 


2850 
2860 


2870 


2880 


2890 


2900 
2910 


2x920 
2930 
2940 
2950 


2960 


2970 


2980 


2990 
3000 
3010 
3020 
3030 


3040 
3050 
3060 


3070 
3080 


3090 


3100 
3110 
3120 


"SI": RETURN 


PRINT : PRINT "NO": RETURN 

IF GUIA = 1 THEN PRINT : PRINT 
VAL (C$) - VAL (B$): GOSUB 
40: RETURN 

IF GUIA = 2 THEN PRINT : PRINT 
VAL (C$) — VAL (A$): GOSUB 
40: RETURN 

PRINT : PRINT — VAL (A$) + VAL 


(B$): GOSUB 40: RETURN 


IN A 
* * 
* TIMES * 
* * 


e 
IF GUIA > O THEN GOTO 2840 

IF VAL (A$) * VAL (B$) = 

VAL (C$) THEN PRINT : PRINT 
"SI": RETURN 

PRINT : PRINT "NO": RETURN 

IF GUIA = 1 THEN PRINT : PRINT 
VAL (C$) / VAL (B$): GOSUB 
40: RETURN 

IF GUIA = 2 THEN. PRINT : PRINT 
VAL (C$) / VAL (A$): GOSUB 
40: RETURN 

PRINT : PRINT — VAL (A$) * VAL 
(B$): GOSUB 40: RETURN 

II A 


* * 
* MENOS * 
* * 
ie 
NF = 0 


IF ASC (J$) < 589 THEN NF = 
1: REM se. NUMEROS <** 
COUNT = O 
K=0 
K=K+i 
IF. MIDS (J$,kK),1) = " " THEN 
COUNT = COUNT + 1 
IF COUNT = 2 THEN GOTO 300 
o 
IFK< LEN (J$) THEN GOTO 
2940 
PRINT : PRINT  TAB( 20);"ER 
ROR DE COMPARACION" 
RETURN 
B$ = MIDS$ (J$,K + 1) 
AS = LEFTS (J$,K - 6) 
IF NF = 1 THEN GOTO 3050 
IF AS < BS THEN PRINT : PRINT 
"SI": RETURN 
PRINT : PRINT "NO": RETURN 
REM ses NUMEROS 1% 
IF VAL (A$) < VAL (B$) THEN 
PRINT : PRINT "SI": RETURN 
PRINT : PRINT "NO": RETURN 
A ibi 


* * 
* INT * 
* * 
bobada das 
IF. RIGHTS (J$,2) = "X " THEN 
GOTO 3190 
K=0 
K=K+1 
IF | —MIDS (J$,K,1) = " " THEN 
GOTO 3160 


313 


314 


3150 


O IFK< LEN (J$) THEN GOTO 
3110 

O PRINT : PRINT 

ROR ARITMETICO" 

RETURN 


TAB( 20);"ER 


3160 Al = VAL ( LEFTS (J$,K -— 1) 


) 


3170 IF INT (A1) = Al THEN PRINT 


3 PRINT "SI": RETURN 


3180 PRINT : PRINT "NO": RETURN 

3190 K = 0 

3200 K = K + 1 

3210 IF  MID$ (J$,K,1) = " ”" THEN 
GOTO 3240 

3220 IF K< LEN (J$) THEN GOTO 


40 
so 


60 


70 
80 


90 
100 


110 
120 
130 
140 
150 
190 


200 
210 
e20 
230 
240 


250 


260 
270 


FUZZY 


A E 


REM * * 
REM — * FUZZY RITA +* 
REM + * 
A ii 
REM 
GOSUB 1420: REM  INICIALIZACI 
ON 
GOSUB 1190: REM OPCIONES DE 
SALIDA 


GOSUB 1280 REM PREGUNTAS DIS 
CRIMINATORIAS 

GOSUB 140: REM PREGUNTAS AL 
USUARIO 

GOSUB 500: REM TOMA DE DECIS 
ION Y ACTUALIZACION DE CONOC 


IMIENTOS 
PRINT "PULSA <RETURN> PARA CO 
NT INUAR" 
IF X$< > "" THEN INPUT I$: 
GOTO 50 


PRINT "EL ADIESTRAMIENTO, " 
PRINT "O CUALQUIER TECLA SEG 
UIDA DE <RETURN> PARA UTIL 
IZAR A RITA" 

INPUT X$: GOTO 50 

END 

CA dd 
REM PREGUNTAS AL USUARIO 
HOME 


PRINT "ESTOS SON LOS OBJETOS 
QUE PUEDO DISTINGUI 

R:" 

FOR J = 1 TO TT 

PRINT A$(J) 

NEXT J 

GOSUB 1560 

IF X$ = "" THEN PRINT "PIEN 
SA EN UNO Y LUEGO PULSA <RET 
URN>" 

IF X$< > "" THEN PRINT "E 


STOY LISTO PARA DEDUCIR CUAL 
TIENES EN MENTE" 
IF X$ = "" THEN 
ADD = .5 


INPUT Js 


3230 


3240 


3250 
3260 


3280 
3290 
3300 


3200 
PRINT : PRINT  TAB( 20);"ER 
ROR ARITMETICO": RETURN 


PRINT : PRINT — INT ( VAL ( LEFTS 
(J$,K - 1))) 

RETURN 

E ai 

* * 

* INICIALIZACION * 

* * 


MDI MOL DD IE MIE III II ID EME HEM 


HOME 
DIM 2$(1000),R$(200) 
RETURN 


RITA 


280 
290 
300 
310 


320 


330 


340 
350 


360 
370 
380 
390 
400 
410 


420 
430 
440 


450 
460 
470 
480 
490 
500 
s10 
520 
530 


550 
560 
570 
580 
590 


600 


FOR J = 1 TO DQ 
ADD = ADD + ADD 

GOSUB 1540 

IF X$< > "" AND TT > 2 THEN 
410: REM COMPRUEBA SI SE PU 
EDE OMITIR LA PREGUNTA 

PRINT "PIENSA EN UNO DE ESTO 

S NUMEROS: " 

PRINT "1 (CIERTO), O (FALSO) 

» $ (TERMINAR)" 

PRINT 3 PRINT ES(J); 

INPUT H$: IF H$ = "$" THEN PRINT 
3 PRINT "HASTA LA VISTA": PRINT 
3 PRINT : END 


C(J) = VAL (H5$) 
C(J) = ADD * C(J) 
NEXT J 
RETURN 


REM AAA AAA AAA AAA Aa 
REM DECIDE SI SE PUEDE OMIT 
IR LA PREGUNTA 

SA = 1 

FOR W = 1 TO TT 

IF ABS (B(W,J) - B(1,J)) > 
.7 THEN SA = O 

NEXT W 

IF SA = O THEN GOTO 320 

C(J) = B(W,J) 

GOTO 380 

REM iii 
REM — TOMA DECISION 

FOR J = 1 TO TT 

D(J) = O:E(J) = O:F(J) = O 
NEXT J 

ADD = .5 

FOR J = 1 TO TT 

ADD = ADD + ADD 

FOR X = 1 TO DQ 

REM JUEGA CON LOS VALORES D 
E LAS TRES LINEAS SIGUIENTES 
PARA LOGRAR MAYOR EFICACIA 
1F C(X) = B(J,X) THEN D(J) = 
D(J) + 1 

IF ABS (C(X) - B(J,X)) < .6 
* ADD THEN E(J) = E(J) + .4 
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610 


620 
630 
640 
650 
660 
670 


680 
690 
700 
710 
720 
730 
740 


750 


760 


770 


780 


790 
800 


810 
815 


ezo 


830 
840 


eso 


860 
870 


88o 
890 
900 


910 


920 
930 
940 
950 
960 
970 


980 
990 


1000 
1010 
1020 


1030 


IF ABS (C(X) - B(J,X)) < 1. 
2 * ADD THEN F(J) = F(J) + . 
3 
NEXT X 
NEXT J 
Al = 1:A2 = 1:A3 
Fi = 1:F2 = 1:F3 
FOR J = 1 TO TT 
IF D(J) > F1 THEN Fi = D(J): 
Al = J 
IF D(J) 
Al = J 
IF D(J) 
A3 = J 
NEXT J 
REM PRESENTA EL RESULTADO 
PRINT 
CFLG = O 
PRINT "EL RESULTADO MAS PROB 
ABLE ES: ": PRINT A$(A1) 
IF A2< > Al THEN PRINT "E 
L SIGUIENTE MAS PROBABLE ES: 
“: PRINT A$(A2):CFLG = 1 
IF A3< > Al THEN PRINT "E 
L SIGUIENTE MAS PROBABLE ES: 
": PRINT A$(A3):CFLG = 2 
*«PRINT 
PRINT "ES CORRECTO EL RESULT 
ADO MAS PROBABLE?" 
INPUT Fs$ 
IF FS<X > "S" ANDFS$S< >" 
N" THEN GOTO 790 
IF FS = "S" THEN PER = 50 
IF FS$< > "S" THEN PER = 48 
o 
IF FS = "S" AND X$ < > "" THEN 
RETURN 
IF F$ = "S" THEN GOTO 1010 
IF TT = 2 AND Al = 1 THEN Al 
= 2: GOTO 1010 
IF TT = 2 THEN Al = 1: GOTO 
1010 
IF CFLG = O THEN 920 
PRINT "ES CORRECTA MI SEGUND 
A ELECCION?" 
INPUT F5$ 
IF FS = "N" THEN 920 
IF CFLG = 1 THEN Al = A2: GOTO 
1010 
IF CFLG = 2 THEN Al = A3: GOTO 
1010 
GOSUB 1560 
FOR J = 1 TO TT 
PRINT Jj" - "¡As(J) 
NEXT J 
PRINT 
PRINT "CUAL ES LA SOLUCION C 
ORRECTA"; 
INPUT Al 
IF Al < 1 OR Al > TT THEN 98 
o 
REM — ACTUALIZACION DE LA BA 
SE DE DATOS 
FOR J = 1 TO DQ 
IF B(A1,J) < > O THEN B(A1 
JJ) = (C(J) + 5.5 * B(A1,J)) 
1/6 
IF B(A1,J) = O THEN B(A1),J) 


1 
1 


> F2 THEN Fe = E(J): 


> F3 THEN F3 = F(J): 
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1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


1240 
1250 


1260 
1270 
1280 


1290 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 


1460 
1470 


1500 
1510 
1520 
1530 
1540 
1550 
1560 


1570 


= C(J) 
B(A1,J) = INT (10 * B(A1),J) 
>) / 10 

NEXT J 

PRIiNT 

IF US = "" THEN RETURN 
FOR J = 1 TO TT 


PRINT : GOSUB 1560 
PRINT A$(J) 


FOR K = 1 TO DQ 
PRINT ES(K);B(J),K) 


RETURN 

A bici 
REM OPCIONES DE SALIDA 

TT = 0 
TT = TT + 1 

GOSUB 1560 

PRINT "INTRODUCE EL ELEMENT 
O NUMERO ";¿TT: PRINT "O PULS 
A <RETURN> PARA TERMINAR" 
INPUT AS(TT) 


IF AS(TT) = "" OR TT = 50 THEN 
TT = TT - 1: RETURN 

GOTO 1210 

AA iii 
REM PREGUNTAS DISCRIMINATO 
RIAS 

HOME 


FOR J = 1 TO TT 

PRINT AS(J) 

NEXT J 

DQ = 0 

DQ = DQ + 1 

GOSUB 1540 

PRINT "INTRODUCE LA PREGUNT 
A NUMERO ";DO: PRINT "O PULS 
A <RETURN> SI NO HAY MAS" 

INPUT ES$(DQ) 

IF ES(DQ) = "" OR DQ = SO THEN 
DO = DQ - 1: RETURN 

GOTO 1350 

REM dc 

REM INICIALIZACION 

HOME 

REM ADAPTA LAS MATRICES DE 
LA SIGUIENTE LINEA DE ACUER 
DO CON TUS NECESIDADES 

DIM A$(50),B(50,50),C(50),D 
(50) ,E(50) ,E$(50),F (50) 
AAN 

PRINT "PULSA UNA TECLA Y DE 
SPUES <RETURN>" 

PRINT "SI QUIERES VER LOS C 
ONOCIMIENTOS" 

PRINT "ADQUIRIDOS DESPUES D 
E CADA RONDA; " 

PRINT "EN CASO CONTRARIO, P 
ULSA SOLO <RETURN>" 

PRINT : INPUT US 

HOME 


RETURN 


ANAYA MULTIMEDIA 
Colección «MICROINFORMATICA» 


Angell, 1. O., y Jones, B. J.: DISEÑO DE GRAFICOS Y VIDEOJUEGOS 
(incluye cassette). 

Barnett, G.: EL LIBRO GIGANTE DE LOS JUEGOS PARA COMMO- 
DORE 64/128. 

Beechhold, Henry F.: EL LIBRO DEL HARDWARE. No destape su ordena- 
dor personal... sin leer antes este libro. 

Birmingham Educational Computing Centre: INTRODUCCION A LA TECNO- 
LOGIA DE LA INFORMACION. PREINFORMATICA. 

Bishop, Peter: PROGRAMACION AVANZADA EN BASIC. 

Brown, Peter: PASCAL A PARTIR DEL BASIC. 

Cavalcoli, Aldo: EL ORDENADOR PERSONAL: COMO ELEGIRLO Y UTI- 
LIZARLO. 

Coccione, L., y Winter, G.: LOS ORDENADORES NO MUERDEN. 

Dachslager, H.; Hayashi, M., y Zucker, R.: PROGRAMACION EN BASIC: 
UN METODO PRACTICO. 

Dewhirst, J., y Tennison, R.: TU PRIMER LIBRO DEL ZX SPECTRUM. 

D'Opazo, J., y Grupo GOLEM: PROGRAMACION EN LOGO. 

Durst, J.: «SPRITES» Y GRAFICOS EN LENGUAJE MAQUINA (ZX 
SPECTRUM) 

Galende Domínguez, F.; Sánchez López, A.; Alfaraz López, M. y Sánchez 
García, J. A: COMETAS EN TU MICRO: EL HALLEY. Cálculos de 
órbitas y parámetros de cometas en BASIC. 

Gavin, Maurice: ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR. 

Gibbons, John P.: PROGRAMACION AVANZADA DEL COMMODORE 64. 
Ampliación del BASIC y rutinas gráficas. 

Greenwood, Gareth: CODIGOS Y CLAVES SECRETAS. Criptografía en BASIC. 

Hammond, R.: EL ORDENADOR Y TUS HIJOS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR. 

Hartnell, Tim: INTELIGENCIA ARTIFICIAL: CONCEPTOS Y PROGRA- 
MAS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ZX SPEC- 
TRUM. 

Hartnell, Tim, y otros: EL LIBRO GIGANTE DE LOS JUEGOS PARA 
DRAGON. 

Hartnell, Tim: EL SUPERLIBRO DE LOS JUEGOS PARA ORDENADOR. 

Heller, R. S., y Martin, C. D.: BITS Y BYTES: INICIACION A LA INFOR- 
MATICA. 

Hollerbach, Lew: MICROINFORMATICA: CONCEPTOS BASICOS. 

Hurley, R.: JUEGOS GRAFICOS DE AVENTURA PARA ZX SPECTRUM. 

Johnson, David: DESCUBRE LAS MATEMATICAS CON TU MICRO. 

Johnston, J.: MICROS: TAMAÑOS, FORMAS Y SABORES. 

Johnston, J.: MICROS: BIPS, PITIDOS Y LUCES. 

Johnston, J.: MICROS: MENUS, BUCLES Y RATONES. 

Kosniowski, Czes: MATEMATICAS DIVERTIDAS EN BASIC. 

Kramer, S.: PROGRAMACION AVANZADA DEL ZX SPECTRUM. 


Lacey, Andrew: LIBRO GIGANTE DE LOS JUEGOS PARA MSX. 

Núñez, Agustín: PROGRAMACION DEL INTERFACE 1 Y MICRODRIVE. 

Otero, M. A.; Pueyo, M. A., y Cajaraville, J. A.: PRIMEROS PASOS EN 
LOGO. El mundo de la tortuga Fan. Libro del profesor. Libro del alumno. 

O'Shea, T., y Self, J.: ENSEÑANZA Y APRENDIZAJE CON ORDENADO- 
RES. Inteligencia artificial en educación. 

Pentiraro, Egidio: EL ORDENADOR EN EL AULA. 

Pritchard, Joe: DESCUBRE TU MSX. Programación y aplicaciones. 

Pritchard, Joe: LENGUAJE MAQUINA MSX. Introducción y conceptos avan- 
zados. 

Pritchard, Joe: RUTINAS EN LENGUAJE MAQUINA PARA AMSTRAD. 

Rosso, Vincenzo de: COMO SE PROGRAMAN LOS ORDENADORES. 

Sato, T.; Mapstone, P., y Muriel, IL: MSX: GUIA DEL PROGRAMADOR 
Y MANUAL DE REFERENCIA. 

Servello, Fausto: ¿QUE ES LA TELEMATICA? 

Snover, S, L., y Spikell, M. A.: JUEGOS MATEMATICOS DE INGENIO 
EN BASIC. 

Thomasson, Don: PROGRAMACION AVANZADA DEL AMSTRAD. Entra- 
das y salidas de la ROM. 

Webb, David: LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM. 

Zaks, Rodnay: EL LIBRO DEL BASIC. 


¿Qué es un sistema experto? ¿Puedo explorar este área de la 
inteligencia artificial con un microordenador? Si te haces estas 
preguntas, SISTEMAS EXPERTOS. INTRODUCCION AL DISEÑO Y 
APLICACIONES está escrito para ti. 


Un sistema experto es un programa de ordenador que contiene saber 
humano sobre un tema, mantenido de tal forma que los no expertos 
pueden acceder a él y utilizarlo. Aunque los sistemas expertos 
pertenecen a los dominios de máxima sofisticación en informática, si 
sabes un poco de BASIC y tienes uno cualquiera de los 
microordenadores para los que están preparados los listados de este 
libro (MSX, SPECTRUM, AMSTRAD, COMMODORE y APPLE ll) 
podrás aprender mucho acerca de las posibilidades y operativa de los 
sistemas inteligentes. 


A lo largo del libro te familiarizarás con los conceptos de “base de 
conocimientos”, “razonamiento difuso”, "mecanismos de inferencia”, 
“crecimiento incremental”, y construirás varios sistemas expertos reales 
con los que experimentar hasta el límite de tu imaginación, ingenio y 
habilidad: 

— MECANICO DE AUTOMOVILES: diagnostica averías en automóviles. 

— MEDICI: chequea la salud del usuario. 

— FUZZY RITA: sistema experto de propósito general. 

— Emulador de HASTE: lenguaje declarativo simple. 

— Emulador BASIC de PROLOG: versión restringida del PROLOG. 

— Emulador BASIC de LISP: versión restringida del LISP. 


¡No esperes más; adéntrate con Tim Hartnell en el mundo de los 
sistemas expertos! 


Contiene listados para MSX, SPECTRUM, AMSTRAD, COMMODORE 
y APPLE ll. rn 
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